Function 获取网络时间
Dim 返回值, 分割参数, 年, 月, 日, 时, 分, 秒
返回值 = Lib.网络.获得网页源文件("http://www.beijing-time.org/time.asp")
分割参数 = Split(返回值, vbCrLf)
年 = Split(分割参数(1), "=")(1)
年 = Left(年, Len(年) - 1)
月 = Split(分割参数(2), "=")(1)
月 = Left(月, Len(月) - 1)
日 = Split(分割参数(3), "=")(1)
日 = Left(日, Len(日) - 1)
时 = Split(分割参数(5), "=")(1)
时 = Left(时, Len(时) - 1)
分 = Split(分割参数(6), "=")(1)
分 = Left(分, Len(分) - 1)
秒 = Split(分割参数(7), "=")(1)
秒 = Left(秒, Len(秒) - 1)
获取网络时间=CDate(年&"-"&月&"-"&日&" "&时&":"&分&":"&秒)
End Function
MessageBox 获取网络时间