.版本 2.程序集 窗口程序集1.子程序 __啟動窗口_創建完畢.局部變量 XML對象, 對象.局部變量 時間文本, 文本型.局部變量 網絡時間, 日期時間型.如果真 (XML對象.創建 (“WinHttp.WinHttpRequest.5.1”, ))  XML對象.方法 (“SetTimeouts”, 5000, 5000, 10000, 5000)  XML對象.寫屬性 (“Option”, 6, 0)  XML對象.方法 (“open”, “HEAD”, “http://www.baidu.com/vevb.com”, 假)  XML對象.方法 (“send”, )  時間文本 ＝ XML對象.讀屬性 (“GetResponseHeader”, “Date”).取文本 ().如果真結束網絡時間 ＝ 時間格式化 (時間文本)時間編輯框.內容 ＝ 到文本 (時間文本) ＋ #換行符 ＋ 到文本 (網絡時間).子程序 時間格式化, 日期時間型.參數 時間文本, 文本型.局部變量 臨時數組, 文本型, , "0".局部變量 臨時變量, 文本型.局部變量 時間變量, 日期時間型.局部變量 臨時時間, 日期時間型.局部變量 日, 文本型.局部變量 月, 文本型.局部變量 年, 文本型.局部變量 時, 文本型.局部變量 分, 文本型.局部變量 秒, 文本型臨時數組 ＝ 分割文本 (時間文本, “, ”, )臨時變量 ＝ 臨時數組 [2]臨時變量 ＝ 子文本替換 (臨時變量, “ GMT”, , , , 真)清除數組 (臨時數組)臨時數組 ＝ 分割文本 (臨時變量, “ ”, )日 ＝ 臨時數組 [1].判斷開始 (臨時數組 [2] ＝ “Jan”)  月 ＝ “01”.判斷 (臨時數組 [2] ＝ “Feb”)  月 ＝ “02”.判斷 (臨時數組 [2] ＝ “Mar”)  月 ＝ “03”.判斷 (臨時數組 [2] ＝ “Apr”)  月 ＝ “04”.判斷 (臨時數組 [2] ＝ “Mar”)  月 ＝ “05”.判斷 (臨時數組 [2] ＝ “Jun”)  月 ＝ “06”.判斷 (臨時數組 [2] ＝ “Jul”)  月 ＝ “07”.判斷 (臨時數組 [2] ＝ “Aug”)  月 ＝ “08”.判斷 (臨時數組 [2] ＝ “Sep”)  月 ＝ “09”.判斷 (臨時數組 [2] ＝ “Oct”)  月 ＝ “10”.判斷 (臨時數組 [2] ＝ “Nov”)  月 ＝ “11”.判斷 (臨時數組 [2] ＝ “Dec”)  月 ＝ “12”.默認.判斷結束年 ＝ 臨時數組 [3]臨時變量 ＝ 臨時數組 [4]清除數組 (臨時數組)臨時數組 ＝ 分割文本 (臨時變量, “:”, )時 ＝ 到文本 (到整數 (臨時數組 [1]))分 ＝ 臨時數組 [2]秒 ＝ 臨時數組 [3]時間變量 ＝ 到時間 (年 ＋ “/” ＋ 月 ＋ “/” ＋ 日 ＋ “/” ＋ 時 ＋ “/” ＋ 分 ＋ “/” ＋ 秒)時間變量 ＝ 增減時間 (時間變量, #小時, 8)返回 (時間變量)