- 日時： 2011/04/05 12:55
- 名前： 花ちゃん
- ***********************************************************************************
* カテゴリー：[日付・時刻][][] *
* キーワード：単位変換,時間計算,時間変換,日付書式,, *
***********************************************************************************
---------------------------------------------------------------------
Re: 時刻変換 - 魔界の仮面弁士 2003/07/10-02:04 No.4722
---------------------------------------------------------------------
> 次のms単位のデータ（7261001）がありまして、
> そのデータを[02:01:01.001]に変換したいのですが、
「良い方法」かどうかは兎も角として、例えばこんな感じでしょうか。
Private Sub Command2_Click()
Dim myTime As Double
myTime = 7261001
Dim s As String
Dim dt As Double
s = "[" & Format(DateAdd("s", myTime \ 1000, 0), "hh\:nn\:ss") _
& "." & Format(myTime Mod 1000, "000") _
& "]"
Debug.Print s
' 結果 [02:01:01.001]
'---------------------------------------------------------------------------
'そして、もしも24時間(86400000ミリ秒)を越える可能性があるなら、こんな感じかな……。
dt = DateAdd("s", myTime \ 1000, 0)
s = "[" & Format(DateDiff("h", 0, dt), "00") _
& ":" & Format(dt, "nn\:ss") _
& "." & Format(myTime Mod 1000, "000") _
& "]"
Debug.Print s
' 結果 [02:01:01.001]
End Sub
 |
時刻変換(VB6.0)_1