找回密码
 加入
搜索
楼主: 风行者

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

[复制链接]
发表于 2010-12-18 09:16:45 | 显示全部楼层
回复 6# afan


不知道是A版修改的这段代码有问题还是我这里DNS的问题,
我获取的网络时间是2010-1-18,今天明明就是2010-12-18的嘛。
用楼主的原码就没有问题
发表于 2010-12-18 12:58:10 | 显示全部楼层
恩 研究一下
发表于 2010-12-19 17:39:07 | 显示全部楼层
很帅~!留个脚印。
发表于 2010-12-22 11:04:22 | 显示全部楼层
活学活用 真不错。
发表于 2010-12-23 19:34:23 | 显示全部楼层
顶,收机看贴不爽。
发表于 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
发表于 2010-12-28 13:23:04 | 显示全部楼层
thanks for sharing
发表于 2011-1-1 00:13:46 | 显示全部楼层
回复 37# afan


现在2011年了,我用A版本的代码看了一下,显示时间是2010-12-31不知道是哪里出了问题。
发表于 2011-1-1 00:14:39 | 显示全部楼层
回复 39# kood481748


    时差问题,呵呵
发表于 2011-1-1 00:29:18 | 显示全部楼层
难道这时间服务器不在中国?
发表于 2011-1-1 00:39:12 | 显示全部楼层
回复 41# kood481748


    服务器在哪无所谓,关键是这个时间是格林威治时间,与北京时间有8小时时差
发表于 2011-1-1 03:37:53 | 显示全部楼层
_Date_Time_GetSystemTime
_Date_Time_SystemTimeToTzSpecificLocalTime
_Date_Time_GetLocalTime
_Date_Time_TzSpecificLocalTimeToSystemTime
看看这四个函数
发表于 2011-1-9 22:55:14 | 显示全部楼层
回复 1# 风行者

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

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

诚心请教是什么问题导致!
发表于 2011-3-17 11:23:43 | 显示全部楼层
新手,跟着学习学习
发表于 2011-3-17 13:49:37 | 显示全部楼层
认真学习他 谢谢
您需要登录后才可以回帖 登录 | 加入

本版积分规则

QQ|手机版|小黑屋|AUTOIT CN ( 鲁ICP备19019924号-1 )谷歌 百度

GMT+8, 2024-3-29 18:52 , Processed in 0.071156 second(s), 13 queries .

Powered by Discuz! X3.5 Licensed

© 2001-2024 Discuz! Team.

快速回复 返回顶部 返回列表