親愛的朋友，您的電腦時鐘是標準的北京時間嗎？還是石家莊時間或是天津時間呢？
玩秒購總是慢半拍一般不是因為您動作慢，而往往是您的電腦時鐘不夠精準。現在請跟我來一起動手，用Excel做一個時鐘校對工具，讓您的電腦時鐘與百度同步。很簡單的，動手就好！
工具/原料
Excel
VBA
方法/步驟
為什麼要用百度時鐘
為什麼玩秒購總是慢半拍呢？不是設置了“自動與Internet時間服務器同步”嗎？請聽我再囉嗦幾句。
國外的時間服務器本身沒有問題，準得不得了，問題是，那是人家得東西，服務器架設在歐美，離我們遠了去了，繞過99道彎到達我們電腦早繞暈了還能準嗎？
再看我們的百度，服務器佈滿全國，您ping一下“www.baidu.com”，時延幾ms，就像是隔壁的網關服務器一樣。時延沒有問題，時鐘的準確度更不必懷疑，巨大的數據量往來調度沒有一個精準的時鐘是玩不轉的，對百度老大還不放心嗎？
動手做吧！
新建一個Excel文件改名為“百度時鐘校對.xls”將其打開-->Alt+F11打開VBA窗口-->雙擊工程窗口的“ThisWorkbook”對象-->選擇Workbook_Opne事件。
在“ThisWorkbook”的代碼窗口中輸入下面的代碼：
Private Sub Workbook_Open()
Application.Visible = False
Dim XMLobj As Object
Dim DateS, D As String
Dim DateSys As Date
On Error GoTo js
Set XMLobj = CreateObject("Microsoft.XMLHTTP")
Randomize
XMLobj.Open "Get", ";Refresh=" & Rnd, False
XMLobj.sEnd ""
DateS = XMLobj.getResponseHeader("Date")
Set XMLobj = Nothing
D = Mid(DateS, 6, 20)
DateSys = CDate(D) + 8 / 24
Date = DateSys
Time = DateSys
MsgBox "時鐘校對成功！當前時間：" & DateSys
Application.DisplayAlerts = False
Application.Quit
Application.DisplayAlerts = True
Application.Visible = True
js:
End Sub
按F5運行一下試試。
沒問題吧！存盤退出吧！
一個時鐘校對工具做好了！
現在我們把這個小工具放在開機啟動欄目裡，讓電腦每次啟動的時候自動校對系統時間與百度同步。
1. 右擊”百度時鐘校對.xls“-->發送到-->桌面快捷方式。
2. 隨便打開一個窗口，在地址欄輸入一下內容：
C:\Documents and Settings\Administrator\「開始」菜單\程序\啟動
3. 將快捷方式複製到啟動文件夾。
注意事項
如果不需要提示，把語句 MsgBox "時鐘校對成功！當前時間：" & DateSys 刪掉即可。