16,717
社区成员
发帖
与我相关
我的任务
分享RichTextBox2.Text = New DateTime(2008, 1, 1).AddSeconds(12735190).ToString("MM-dd HH:mm:ss") '05-27 09:33:10
RichTextBox2.Text = New DateTime(2008, 1, 1).AddSeconds(12735445).ToString("MM-dd HH:mm:ss") '05-27 09:37:25Dim timeStamp As String = "12735445"
Dim dtStart As DateTime = TimeZone.CurrentTimeZone.ToLocalTime(New DateTime(2008, 1, 1))
Dim lTime As Long = Long.Parse(timeStamp + "0000000")
Dim toNow As New TimeSpan(lTime)
Dim dtResult As DateTime = dtStart.Add(toNow)
RichTextBox2.Text = dtResult.ToString("MM-dd HH:mm:ss") '05-27 17:37:25
dim D as date=new date(12735445*10000000) '以100毫微秒为单位
dim D as date=cdate(now().tostring("yyyy/MM/dd")).AddSeconds(12735445)