這次我們主要講解一下daytime協議和時間協議相關服務的問題，讓我們一起來了解一下daytime協議、時間協議的內容吧。在一個局域網中,許多系統都要求每臺計算機能夠保持時間的一致性,WIN2000系統提供了與主域服務器時間同步功能,即工作站只要登錄到主域服務器,工作站系統的時間自動與主域服務器時間一致,但接下來的問題是我們如何使主域服務器的時間同步世界標準時間.如要獲得世界標準時間,比較精確的做法是使用GPS衛星時鐘獲得毫秒級精度的標準時間,但這是要money的哦.如果我們在時間精度上只需要秒級的,又能夠連接到Internet,則我們可以利用Internet上的標準時間服務器獲得標準時間.

事實上在Internet上有三個不同的時間服務,每一個都由Request for Comment（RFC）定義為Internet日期時間標準.這三個標準分別為:RFC-867、RFC-868和RFC-1305.下面就先介紹RFC-867:

RFC867 Daytime協議(RFC867 Daytime Protocol)

本RFC規范了一個ARPA Internet community上的標準.在ARPA Internet上的所有主機應當采用和實現這個標準.

一個有用的測量和調試工具就是daytime協議服務.它的作用就是返回當前時間和日期,格式是字符串格式.

◆基于TCP的daytime服務

daytime服務是基于TCP的應用,服務器在TCP端口13偵聽,一旦有連接建立就返回ASCII形式的日期和時間(接收到的任何數據被忽略),在傳送完后關閉連接.

◆基于UDP的daytime協議服務

daytime服務也可以使用UDP協議,它的端口也是13,不過UDP是用數據報傳送當前時間的.接收到的數據被忽略.

◆Daytime格式

對于daytime協議沒有特定的格式,建議使用ASCII可打印字符,空格和回車換行符.daytime應該在一行上.

下面是兩種流行的格式:

一種流行的格式是:Weekday, Month Day, Year Time-Zone

例子:Tuesday, February 22, 1982 17:37:43-PST

另一種流行的格式用于SMTP中:dd mmm yy hh:mm:ss zzz

例子:02 FEB 82 07:59:01 PST

注意:對于機器來說,有用的時間采用了時間協議（Time Protocol RFC-868)

接下來我們用VB程序實現通過RFC867協議設置我們自己的計算機系統時間,為使程序簡化,程序未進行日期校正,只進行時間校正.在FORM1中添加1個Winsock控件,將下面代碼剪貼到FORM1的代碼窗體中即可:

Option Explicit

采用RFC867 Daytime協議獲取標準時間例程

www.time.ac.cn為中科院國家授時中心,采用北京時間

時間格式:Mon Jul 26 09:58:57 2004

time.nist.gov為美國標準技術院,采用格靈威時間

時間格式:53212 04-07-26 02:00:12 50 0 0 488.3 UTC(NIST) *  
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)  
Dim NoSrv As Boolean  
Dim TimeFromNet  
Private Sub Form_Load()  
Winsock1.Protocol = sckTCPProtocol '采用TCP協議  
NetTime "www.time.ac.cn" '首先取中科院國家授時中心時間  
If NoSrv Or TimeFromNet = "" Then 

若未取到中科院國家授時中心時間,則取美國標準技術院時間

NetTime "time.nist.gov"  
If NoSrv Or TimeFromNet = "" Then 

若不能取美國標準技術院時間,則報錯

MsgBox "檢測不到網絡標準時間服務器time.nist.gov!"  
Else 

為使網絡傳輸誤差減小,第2次再取美國標準技術院時間

NetTime "time.nist.gov" 
If TimeFromNet = "" Then  
MsgBox "網絡標準時間服務器time.nist.gov超時!" 
Else  
TimeFromNet = Mid(TimeFromNet, 17, 8)  
TimeFromNet = TimeSerial((Hour(TimeFromNet) + 8) Mod 24, Minute(TimeFromNet), Second(TimeFromNet))  
Time = TimeFromNet '設置系統時間  
End If  
End If  
Else 

為使網絡傳輸誤差減小,第2次再取中科院國家授時中心時間#p#

NetTime "www.time.ac.cn" 
If TimeFromNet = "" Then  
MsgBox "網絡標準時間服務器www.time.ac.cn超時!" 
Else  
Time = Mid(TimeFromNet, 12, 8) '設置系統時間  
End If  
End If  
End  
End Sub 

關閉Winsock子程序

Private Sub Winsock1_Close()  
If Winsock1.State <> sckClosed Then  
Winsock1.Close  
End If  
End Sub 

Winsock接收數據事件

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)  
TimeFromNet = String(bytesTotal, " ")  
Winsock1.GetData TimeFromNet, vbString, bytesTotal  
End Sub 

Winsock出錯事件

Private Sub Winsock1_Error(ByVal Number As Integer, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)  
NoSrv = True  
End Sub 

從互聯網上標準時間提供網站獲取標準時間

Private Sub NetTime(TimeSrv As String)  
NoSrv = False  
TimeFromNet = "" 
If Winsock1.State <> sckClosed Then Winsock1.Close  
Winsock1.RemoteHost = TimeSrv ' "www.time.ac.cn" 或 "time.nist.gov" 
Winsock1.RemotePort = 13  
Winsock1.LocalPort = 0  
Winsock1.Connect  
Do While TimeFromNet = "" '循環等待標準時間網站返回時間數據  
If NoSrv Then Exit Do '若Winsock出錯,則跳出循環等待  
Sleep 55  
DoEvents  
Loop  
If Winsock1.State <> sckClosed Then Winsock1.Close  
End Sub 

上面介紹了RFC-867標準和VB例程,顯然RFC-867標準采用返回當前時間和日期的格式是字符串格式以及對于daytime協議沒有特定的格式（例如:中科院國家授時中心為"Mon Jul 26 09:58:57 2004",而美國標準技術院為"53212 04-07-26 02:00:12 50 0 0 488.3 UTC(NIST)"）,這2點似乎都不是太舒服,因此我們希望Internet上的標準時間服務器***能夠返回具有標準格式的數字類型數據,其實RFC在制定RFC-867標準時已經考慮了我們的意見,因為他同時還推出了RFC-868標準,下面就介紹RFC-868:

RFC868 時間協議（RFC868 Time Protocol）

本RFC規范了一個ARPA Internet community上的標準.在ARPA Internet上的所有主機應當采用和實現這個標準.此協議提供了一個獨立于站點的,機器可讀的日期和時間信息.時間服務返回的是以秒數,是從1900年1月1日午夜到現在的秒數,天哪,也不小呢.設計這個協議的一個重要目的在于,網絡上的許多主機并沒有時間的觀念,在分布式的系統上,我們可以想一想,北京的時間和東京的時間如何分呢?主機的時間往往可以人為改變,而且因為機器時鐘內的誤差而變得不一致,因此需要使用時間服務器通過選舉方式得到網絡時間,讓服務器有一個準確的時間觀念.不要小看時間,這對于一些以時間為標準的分布運行的程序簡單是太重要了.

這個協議可以工作在TCP和UDP協議下.下面是通過TCP協議工作的時間協議的工作過程:這里S代表服務器,U代表客戶.
S: 檢測端口37
U: 連接到端口37
S: 以32位二進制數發送時間
U: 接收時間
U: 關閉連接
S: 關閉連接

服務器在端口37上監聽連接.當連接建立后,服務器返回一個32位的時間值,然后關閉連接.這個過程也不難,如果服務器不能決定現在是什么時間,服務器會拒絕連接或不發送任何數據而直接關閉連接.