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)
加好友 
发短信
Post By：2014/10/27 16:19:00 [显示全部帖子]
