110,538
社区成员
发帖
与我相关
我的任务
分享
Sub test()
Dim TypeLib As Object, strGUID$
Set TypeLib = CreateObject("Scriptlet.TypeLib")
strGUID = Mid(TypeLib.GUID, 2, 36)
MsgBox strGUID & GetTimestamp
End Sub
Function GetTimestamp()
Dim objSC, ts$, ts1$
Set objSC = CreateObject("msscriptcontrol.scriptcontrol")
objSC.Language = "jscript"
objSC.addcode "function gt(){return new Date().getTime();}"
ts = objSC.eval("gt()")
objSC.addcode "function gt1(a){return new Date().getTime();}"
ts1 = objSC.codeobject.gt1(1)
GetTimestamp = ts1
End Function
Guid guid = new Guid("b73a63c3-fe72-4845-b80a-27bead5c7b7e");
DateTime time = new DateTime(1970, 1, 1).AddMilliseconds(1423659641534);
两部分组成的