总统府官方网站:用vb 或vb.net 获得从1970年 01月01日 到现在累计的秒数

来源:百度文库 编辑:杭州交通信息网 时间:2024/04/19 09:10:55
最好用vb.net

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim d1970 As New System.DateTime(1970, 1, 1, 0, 0, 0, 0)
Dim iSeconds As Long

iSeconds = (Now.Ticks - d1970.Ticks) / 10000000

MsgBox(iSeconds)
End Sub