VBa获取当前的UNIX时间戳

809092104

如何获取  VBa获取当前的UNIX时间戳？

alzeng

1. Sub getUnixTime()
   
2.     Dim oJs As Object
   
3.    
   
4.     Set oJs = CreateObject("ScriptControl"): oJs.Language = "JScript"
   
5.     MsgBox oJs.eval("Math.round(new Date().getTime()/1000)")
   
6. End Sub

复制代码

alzeng

ruby:

1. Sub getUnixTime()
   
2.     Dim oJs As Object
   
3.    
   
4.     Set oJs = CreateObject("ScriptControl"): oJs.Language = "RubyScript"
   
5.     MsgBox oJs.eval("Time.now.to_i")
   
6. End Sub

复制代码

alzeng

1. Sub getUnixTime()
   
2.     MsgBox DateDiff("s", "01/01/1970 00:00:00", Now())
   
3. End Sub

复制代码

wuxianyu86

Sub getdateTime()’UNIX时间转北京时间
    MsgBox Dateadd("s", unix时间, "01/01/1970 00:00:00")
End Sub