获取网络时间-大海
Access软件网QQ交流学习群(群号码198465573),欢迎您的加入!
首页 >技术文章> Access数据库-模块/函数/VBA


获取网络时间

发表时间:2017/12/31 16:24:13 评论(3) 浏览(2179)  评论 | 加入收藏 | 复制
   
摘 要:获取网络时间
正 文:
Private Function getWebDatetime() As String
    Dim XmlHttp As Object
    Set XmlHttp = CreateObject("Microsoft.XMLHTTP")
    XmlHttp.Open "POST", "http://www.baidu.com", False
    XmlHttp.send
    getWebDatetime = Cdate(1 / 3 + CDbl(Cdate(Mid$(XmlHttp.getResponseHeader("Date"), 5, 21))))
    Set XmlHttp = Nothing
End Function

Access软件网交流QQ群(群号:198465573)
 
 相关文章
一句代码得到SQL SERVER时间的函数  【黄海  2004/11/17】
在MDB中获取sqlserver服务器时间  【竹笛  2010/1/11】
世界时钟(实时反映世界各地区时间)  【纵云梯  2012/4/29】
获取网络时间实例  【杜超-2号  2014/1/18】
 
 访客评论
2019/4/22沙溪一滴水
大海老师好!XmlHttp.send 语句运行出错:“拒绝访问”,请教该如何解决?谢谢!

2018/1/4韩志
ajax的办法,很好

2018/1/3KevinFan
学习了,感谢。

总记录:3篇  页次:1/1 9 1 :
 
 发表评论
评论内容 (必填)

常见问答
技术分类
相关资源
文章搜索
关于作者

大海

文章分类

文章存档

友情链接