时间戳要动态的,如
Dim st As New Date(1970,1,1,8,0,0)Dim timestamp As Long = clng((Date.Now - st).TotalSeconds()) '时间戳msgbox(timestamp)