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

看板Visual_Basic作者markart (桂子)時間17年前 (2008/04/26 02:11)推噓0(0推 0噓 1→)

留言1則, 1人參與討論串6/12 (看更多)

提供一下我轉換函數 '====================================================================== '取得系統時間(數字型態-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

04/26 15:19, , 1^F

04/26 15:19, 1^F

‣ 返回看板[ Visual_Basic ] 程設

‣ 更多 markart 的文章

文章代碼(AID): #184XxLZj (Visual_Basic)