类型转换可以看这里
本地时间转时间戳
Dim dtStart As DateTime = TimeZone.CurrentTimeZone.ToLocalTime(New DateTime(1970, 1, 1))
Dim dtNow As DateTime = DateTime.Parse(DateTime.Now.ToString())
Dim toNow As TimeSpan = dtNow.Subtract(dtStart)
Dim timeStamp As String = toNow.Ticks.ToString()
timeStamp = timeStamp.Substring(0, timeStamp.Length - 7)
时间戳转本地时间
Dim GetTimeStamp As L
Dim dtStart As DateTime = TimeZone.CurrentTimeZone.ToLocalTime(New DateTime(1970, 1, 1))
Dim lTime As Long = Long.Parse(GetTimeStamp + "0000000")
Dim toNow As TimeSpan = New TimeSpan(lTime)
Dim dtResult As DateTime = dtStart.Add(toNow)
加好友 
发短信
Post By：2015/1/26 15:33:00 [显示全部帖子]
