VBレスキュー(花ちゃん) - VBレスキュー(花ちゃん)の投稿サンプル用掲示板

　　　　　サンプル投稿用掲示板　　 VB2005 ～用トップページ　　 VB6.0 用トップページ

時刻変換(VB6.0)_1 ( No.1 ) 　[親スレッドへ]

日時： 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