VBマクロ 経過時間の表示

質問

こんにちは。ＶＢ勉強中の初心者です。
時間を計ろうと[start][stop]ボタンと
[スタート時刻][ストップ時刻][経過時間]を表示するテキストボックスを作り、
WEB検索やテキストなどから引用し、以下のようなコードを書き込みました。
Private Sub CommandButton1_Click()
StartTime = Time
TextBox1.Text = StartTime
TextBox2.Text = ""
TextBox3.Text = ""
CommandButton1.Enabled = False
CommandButton2.Enabled = True
End Sub
Private Sub CommandButton2_Click()
StopTime = Time
t = (StopTime, StartTime)*24*3600
TextBox1.Text = StartTime
TextBox2.Text = StopTime
TextBox3.Text = t
CommandButton1.Enabled = True
CommandButton2.Enabled = False
End Sub
ですが、これでは[経過時間]の表示が秒単位の整数です。
表示方法を[時刻]と同様に「h:mm:ss」とすることは可能でしょうか？
また、可能であれば、どのように加工したらよいでしょうか？
よろしくお願いいたします。

回答No.1

dober-o · ベストアンサー

とりあえずこんな感じで
もとの構文をいかしつつ、夜中の０時をまたいでも大丈夫なように・・・。

Private Sub CommandButton1_Click()
StartTime = Now
TextBox1.Text = Format(StartTime, "h:mm:ss")
TextBox2.Text = ""
TextBox3.Text = ""
CommandButton1.Enabled = False
CommandButton2.Enabled = True
End Sub
Private Sub CommandButton2_Click()
StopTime = Now
t = StopTime - StartTime
TextBox1.Text = Format(StartTime, "h:mm:ss")
TextBox2.Text = Format(StopTime, "h:mm:ss")
TextBox3.Text = Format(t, "h:mm:ss")
CommandButton1.Enabled = True
CommandButton2.Enabled = False
End Sub

お礼

できました♪
EXCEL関数をあれこれ使っては、「エラー」の繰り返しでした。
VBに関してはほとんど「関数(!?)」の使い方がわからず・・・勉強中！
まだまだ、悪戦苦闘しております。
「Format」はいろんな場面で使えそうですね。ありがとうございました。