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