以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]关于时间的修改  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=58975)
--  作者：escaflowne1985
--  发布时间：2014/10/27 16:13:00
--  [求助]关于时间的修改
0805131422 是时间格式 08-05 13:14:22
怎么能从
0805131422  改成08-05 13:14:22
                    或者改成2014-08-05 13:14:22
--  作者：Bin
--  发布时间：2014/10/27 16:16:00
--  
你日期都没带年份,是转不成 2014年的.
--  作者：escaflowne1985
--  发布时间：2014/10/27 16:18:00
--  要是单独只转换不带年份的呢
要是单独只转换不带年份的呢
--  作者：Bin
--  发布时间：2014/10/27 16:19:00
--  
Dim s As String = "0805131422" \'  改成08-05 13:14:22
MessageBox.show(s.Substring(0,2) & "-" & s.Substring(2,2) & " " & s.Substring(4,2) & ":" & s.Substring(6,2) & ":" & s.Substring(8,2))

要固定年份的话

Dim s As String = "0805131422" \'  改成08-05 13:14:22
MessageBox.show("2014-" & s.Substring(0,2) & "-" & s.Substring(2,2) & " " & s.Substring(4,2) & ":" & s.Substring(6,2) & ":" & s.Substring(8,2))
--  作者：有点甜
--  发布时间：2014/10/27 16:19:00
--  

Dim str As String = "0805131422"
Dim d As Date = new Date(Date.Today.Year, cint(str.SubString(0,2)), Cint(str.SubString(2, 2)), Cint(str.SubString(4,2)), cint(str.SubString(6,2)), Cint(str.SubString(8,2)))

msgbox(d)