vba获取时间戳的方法

时　间:2018-10-23 08:28:57
作　者:伊西军   ID：63090  城市：临汾
摘　要:使用vba获取时间戳以及转化成北京时间的方法
正　文:

一、问题描述：

      有Access网论坛的朋友询问：如何用vba获取时间戳，以及转化成本地的时间？

      注：相对于时间，用时间戳查询的速度可能会更快一些，而且转化成其他格式的时间也会更灵活。

二、解决方法：

Function getUnixTime()  '获取Unix时间戳 
    getUnixTime = DateDiff("s", "01/01/1970 00:00:00", Now())
End Function 

Function getdateTime(unixTime as Long) 'UNIX时间戳转北京时间
    getdateTime = DateAdd("s", unixTime , "01/01/1970 00:00:00")
End Function  

'调用方法：
Me.TextBox = getUnixTime()    '给文本框TextBox赋值