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