Re: [.NET] 時間存進資料庫

[markart (桂子)]

提供一下我轉換函數

'======================================================================
'取得系統時間(數字型態-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
→ colorboy1769:感謝提供 XD