时间戳,参考
Dim st As New Date(1970,1,1,8,0,0)Dim timestamp As Integer = CInt((Date.Now - st).TotalSeconds()) '时间戳msgbox(timestamp)