経過時間をhh:mm:ssの形式で表示したい

質問

Formモジュールを起動直後から経過時間を表示したいと思っています。
形式は hh:mm:ss です。
Function関数を作成しないといけないかと思いますが、どう書くのでしょう？？

回答No.1

imogasi · ベストアンサー

（１）VBでフォーム上にタイマーコントロールをコントロールツールボックスより貼りつける。
（２）タイマーコントロール（エディットモード）を右クリックし、プロパティウインドウのIntervalに５０００と
入れる（例で５秒です）。
（３）Form1をダブルクリックして
Private Sub Form_Load()
End Sub
が出るから
Timer1.Enabled = True
t0 = Now()
を入れる。タイマーセットとスタート時刻をt0に保存します。
（４）タイマーコントロールをダブルクリックして
Private Sub Timer1_Timer()
End Sub
が出るから
ts = Now() - t0
Form1.Print Format(ts, "hh:mm:ss")
を入れる。
（５）実行すると、Form1上に
00:00:05
00:00:10
00:00:15
・・・・
00:01:00
00:01:05
などと表示されます。
こう言うのはどうですか。私もあと判らないことがありますが上記でご参考になる部分があればと思います。

お礼

imogashiさん、ご回答ありがとうございました。
参考になりました。
なるほど、思ったより簡単にできるんですね～！