简单获取网络日期时间

kood481748 · 发表于 2010-12-18 09:16:45

回复 6# afan

不知道是A版修改的这段代码有问题还是我这里DNS的问题，
我获取的网络时间是2010-1-18，今天明明就是2010-12-18的嘛。
用楼主的原码就没有问题

thealert · 发表于 2010-12-18 12:58:10

恩研究一下

hjg8102 · 发表于 2010-12-19 17:39:07

很帅~！留个脚印。

尘封メ心 · 发表于 2010-12-22 11:04:22

活学活用真不错。

83265358 · 发表于 2010-12-23 19:34:23

顶，收机看贴不爽。

afan · 发表于 2010-12-25 17:46:26

本帖最后由 afan 于 2010-12-26 12:48 编辑

回复 afan

不知道是A版修改的这段代码有问题还是我这里DNS的问题，
我获取的网络时间是2010-1-18， ...
kood481748 发表于 2010-12-18 09:16

才看到… 顺便加了个星期X

MsgBox(0, '', _Hdate())

Func _Hdate()
        Local $mon = 'Jan01Feb02Mar03Apr04May05Jun06Jul07Aug08Sep09Oct10Nov11Dec12'
        Local $Wday = 'Sun日Mon一Tue二Wed三Thu四Fri五Sat六'
        $oHTTP = ObjCreate('microsoft.xmlhttp')
        $oHTTP.Open('get', 'http://v.time.org.cn/com/', False)
        $oHTTP.Send()
        Local $sR = StringRegExp($oHTTP.getResponseHeader('Date'), '(.+?),\h(\d+)\h(.+?)\h(\d{4})\h(\d+)(.+?)\h', 3)
        If @error Then Return SetError(1, 0, -1)
        Local $_mon = StringRegExpReplace($mon, '.*' & $sR[2] & '(\d+).*', '$1')
        Local $_Wday = StringRegExpReplace($Wday, '.*' & $sR[0] & '(.).*', '$1')
        Local $H_time = $sR[4] + 8
        If $H_time >= 24 Then $H_time -= 24
        Return $sR[3] & '-' & $_mon & '-' & $sR[1] & ' ' & $H_time & $sR[5] & ' 星期' & $_Wday
EndFunc   ;==>_Hdate

chinafla · 发表于 2010-12-28 13:23:04

thanks for sharing

kood481748 · 发表于 2011-1-1 00:13:46

回复 37# afan

现在2011年了，我用A版本的代码看了一下，显示时间是2010-12-31不知道是哪里出了问题。

afan · 发表于 2011-1-1 00:14:39

回复 39# kood481748

时差问题，呵呵

kood481748 · 发表于 2011-1-1 00:29:18

难道这时间服务器不在中国？

afan · 发表于 2011-1-1 00:39:12

回复 41# kood481748

服务器在哪无所谓，关键是这个时间是格林威治时间，与北京时间有8小时时差

netegg · 发表于 2011-1-1 03:37:53

_Date_Time_GetSystemTime
_Date_Time_SystemTimeToTzSpecificLocalTime
_Date_Time_GetLocalTime
_Date_Time_TzSpecificLocalTimeToSystemTime
看看这四个函数

qq123123 · 发表于 2011-1-9 22:55:14

回复 1# 风行者

发现一个小问题，一直弄不明白，
问题：先运行一下你的脚本，显示出时间了，显示：（2011年，1月，1日）脚本正常。

接下来，把自己电脑的系统时间调到（2000年，1月，1日）就是往回调，脚本就错误的，

诚心请教是什么问题导致！

My2009 · 发表于 2011-3-17 11:23:43

新手，跟着学习学习

fhefh · 发表于 2011-3-17 13:49:37

认真学习他谢谢

		自动登录	找回密码
密码			加入

[原创] 简单获取网络日期时间