vba 获取网络时间
分类:VBA
Function getCurrentTime()
With CreateObject("Microsoft.XMLHTTP")
.Open "HEAD", "https://www.baidu.com/", False
.send
t = .getResponseHeader("Date")
End With
getCurrentTime = CDate(1 / 3 + CDbl(CDate(Mid$(t, 5, 21))))
End Function
用百度服务器的时间,或者换成其他稳定可靠的网址也可以
from https://club.excelhome.net/thread-1408288-1-1.html