●分●秒 時間 表示形式

質問

時間を取得するコードを使っていますが

Declare Function timeGetTime Lib "winmm.dll" () As Long

Sub Sample()
Dim nStart As Long
Dim nEnd As Long

nStart = timeGetTime()

nEnd = timeGetTime

Debug.Print (CDbl(nEnd) - CDbl(nStart)) / 100 & "秒"
End Sub

これだと結果が、
11607271.9221569秒
秒になってしまいました。

●分●秒で取得したいのですが、
どのような書式にすればよいですか？

回答No.2

uruz · ベストアンサー

timeGetTime関数を使用するのなら戻り値はミリ秒(1/1000)ですから1000で割らないと秒になりません。
また、秒以下を切り捨てていいのならダブル型へのキャストも不要です。

Sub Sample()
　　Dim nStart As Long
　　Dim nEnd As Long
　　Dim nTime As Long

　　nStart = timeGetTime()
　　　・・・
　　　・・・
　　　・・・
　　nEnd = timeGetTime
　　nTime=(nEnd - nStart)/1000

　　Debug.Print nTime \ 60 & "分" & nTime Mod 60 & "秒"
End Sub

お礼

ありがとうございました。

回答No.4

bin-chan

Sub Sample()

Dim nStart As Variant
Dim nEnd As Variant

nStart = Time() ’24時をまたぐならNow（）

nEnd = Time（) ’24時をまたぐならＮｏｗ()
Debug.Print format(nEnd) - nStart， ”[m]分ss秒”)

End Sub
か

お礼

ありがとうございました。

回答No.3

bin-chan

そもそも、求める精度は？

> ●分●秒で取得したいのですが、
だったら
Debug．Print format(time, ”[m]分SS秒”)
で良くない？

お礼

ありがとうございました。

回答No.1

hitomura

逆に質問です。
1分は何秒ですか?

それが解っているならその比率に合わせてミリ秒を表す値を分を表す値と秒を表す値とに分けましょう。

お礼

ありがとうございました。