作者markart (桂子)
看板Visual_Basic
标题Re: [.NET] 时间存进资料库
时间Sat Apr 26 02:11:32 2008
提供一下我转换函数
'======================================================================
'取得系统时间(数字型态-14位)
'======================================================================
Function GetNowNumber()
GetNowNumber = CDbl( Year( Now() ) & Right( "00" & Month( Now() ) , 2 ) & Right( "00" & Day( Now() ) , 2 ) & Right( "00" & Hour( Now() ) , 2 ) & Right( "00" & Minute( Now() ) , 2 ) & Right( "00" & Second( Now() ) , 2 ) )
End Function
'======================================================================
'取得需要的时间(数字型态-14位)
'======================================================================
Function GetNeedDateNumber( ByVal DateVal )
GetNeedDateNumber = CDbl( Year( DateVal ) & Right( "00" & Month( DateVal ) , 2 ) & Right( "00" & Day( DateVal ) , 2 ) & Right( "00" & Hour( DateVal ) , 2 ) & Right( "00" & Minute( DateVal ) , 2 ) & Right( "00" & Second( DateVal ) , 2 ) )
End Function
'======================================================================
'将(数字型态-14位)还原成正规时间
'======================================================================
Function ReplaceNowNumber( ByVal NowNumber )
ReplaceNowNumber = Flalse
IF Len( NowNumber ) <> 14 Then Exit Function
ReplaceNowNumber = FormatDateTime( DateSerial( Mid( NowNumber , 1 , 4 ) , Mid( NowNumber , 5 , 2 ) , Mid( NowNumber , 7 , 2 ) ) & TimeSerial( Mid( NowNumber , 9 , 2 ) , Mid( NowNumber , 11 , 2 ) , Mid( NowNumber , 13 , 2 ) ) )
End Function
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 61.70.193.63
1F：→ colorboy1769:感谢提供 XD 04/26 15:19