[问题求助] vbs如何获取执行js代码后的返回值（Unix时间戳）？

czjt1234

'win7x64，强制在32位环境运行脚本
Set oWS  = CreateObject("WScript.Shell")
Set oFSO = CreateObject("Scripting.FileSystemObject")
s = oWS.ExpandEnvironmentStrings("%windir%\SysWOW64\WScript.exe")
If oFSO.FileExists(s) = True And LCase(WScript.FullName) <> LCase(s) Then
    oWS.Run s & " """ & WScript.ScriptFullName & """"
    WScript.Quit()
End If

Function timestamp()
    Dim js:Set js = CreateObject("ScriptControl")
    js.language = "JScript.encode"
    'timestamp = js.EVAL("#@~^FAAAAA==c        +A,fmY+*R7CV!+60v#igYAAA==^#~@ ") '这个可以显示
    timestamp = js.EVAL("msgbox (new Date()).valueOf();")
End Function

msgbox timestamp()
复制代码

msgbox在Java里不好执行啊

czjt1234

这个是读取的当前时间，再请问一下，怎么指定时间

"(new Date()).valueOf('2010-01-01)"
这样不行么

这是是把时间转换为13位数字时间戳
反过来转换的语句又是什么？

谢谢

czjt1234

本地时间转为13数字时间戳
timestamp = js.Eval("new Date('2010/03/08 10:01:02').getTime();") '指定时间，必须是/
timestamp = js.Eval("new Date().getTime();")                      '当前时间

13数字时间戳转为本地时间
timestamp = js.EVAL("new Date(parseInt(1293072805000)).toLocaleString();")

10数字时间戳
http://demon.tw/programming/vbs-unix-time-stamp.html
DateDiff() 把时间转为时间戳
DateAdd()  把时间戳转为时间