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