请转换成整型，不就行了？
Dim st As New Date(1970,1,1,8,0,0)Dim timestamp As Long = (Date.Now - st).TotalMilliseconds() '时间戳msgbox(timestamp)
加好友 
发短信
Post By：2019/6/17 10:37:00 [显示全部帖子]
