UTC+8校正 源码

Demo

[Visual Basic] 纯文本查看 复制代码

'52pojie.cn
'Demo编写
'转载请保持信息完整
'http://www.52pojie.cn/space-uid-153321.html

Function HttpGet(url)

    With CreateObject("Msxml2.ServerXMLHTTP")
        .open "GET", url, False
        .send
        HttpGet = .responseText
    End With

End Function

Private Sub cmd_Click()
    Dim aa As Date
        a = HttpGet("http://open.baidu.com/special/time/")
        a = Split(a, "window.baidu_time(")
        a = Split(a(1), ");")
        a = a(0)
        a = a / 1000
        aa = #1/1/1970#
        a = DateAdd("s", a, "1970-1-1 0:0:0")
        a = DateAdd("h", 8, a)
        lblLabel1.Caption = a
        lblLabel2.Caption = Now
        a = Split(a, " ")
        Date = a(0)
        Time = a(1)
    MsgBox "校正完毕", vbInformation, ""
End Sub

Private Sub Form_Load()
  a = HttpGet("http://open.baidu.com/special/time/")
        a = Split(a, "window.baidu_time(")
        a = Split(a(1), ");")
        a = a(0)
        a = a / 1000
        aa = #1/1/1970#
        a = DateAdd("s", a, "1970-1-1 0:0:0")
        a = DateAdd("h", 8, a)
        lblLabel1.Caption = a
        lblLabel2.Caption = Now
End Sub

很久没人发布VB6源码了。我来更新一下板块吧！

o流星雨o

谢谢分享                                       

ww1113330

感谢分享，校正时间的学习下

鈤丶後再說

不会，只会一点点易语言

Demo

鈤丶後再說 发表于 2014-8-18 20:08
不会，只会一点点易语言

易语言也有这种，更多！

任逍遥

这是什么东东啊?是不是编码互换啊?

单曲循环lee

感谢楼主的无私分享。。。。。。

1094483658

来学习下VB源码