一款按键网络时间获取给大家来一波

sunby03

==============================

Function 网络时间获取1
网络时间获取1=""

b = URL.Get("http://www.114time.com/file/gettime.php")
If b = "" Then
Exit Function

End If

TracePrint b
b = Replace(b, "var bjtime = ", "")
TracePrint b
b = Left(b, (Len(b) - 3))
TracePrint b
b= DateTime.Format("%Y-%m-%d %H:%M:%S",b)

网络时间获取1=b


End Function



Function 网络时间获取2
网络时间获取2=""
Dim a()
b = URL.Get("http://bjtime.cn/riqi.asp")
TracePrint b
If b = "" Then

Exit Function
End If
b =Split(b,"value=")
a= Split(b(1), ">")
b(0)=a(0)
a = Split(b(2), ">")
b(0)=b(0)&"-"&a(0)
a = Split(b(3), ">")
b(0)=b(0)&"-"&a(0)
TracePrint b(0)
网络时间获取2= b(0)
b=b(0)
End Function


Function 网络时间获取3
网络时间获取3=""


B = URL.Get("http://apps.gamedog.cn/360/time/index.php")
If b = "" Then
Exit Function
End If
B = Split(B, "beginAdd = new Date(")
TracePrint B(1)
B = Left(B(1), 10)
TracePrint B
B = Replace(B, ",", "-")
TracePrint B
网络时间获取3 = b
End Function

==============================

hewang

我看你分类是Java代码，乍一看以为我学的是假的Java