一、问题描述:
有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赋值