vba 時間の引き算 例えば 15:00から16:15の間の時間は1時間15分ですが、vbaのコード

vba 時間の引き算

例えば
15:00から16:15の間の時間は1時間15分ですが、vbaのコードで計算するにはどのように書きますか？

イメージは16:15 - 15:00です。

No.1 ベストアンサー 回答者： zongai 回答日時： 2021/02/26 18:26

TimeValueでシリアル値にしてから引き算して、

結果もシリアル値だから、
Formatで時間表示にするとか
書き込むセルの書式で時間にする。

Sub sample()
a = "16:15:00"
b = "15:00:00"
c = TimeValue(a) - TimeValue(b)
MsgBox Format(c, "hh:mm")
End Sub

この回答へのお礼

ありがとうございます。大変助かりました。

お礼日時：2021/02/26 18:45