「○秒」のところの表示を消したい

質問

●質問内容

下記のコードを用いてユーザーフォーム上で
ストップウォッチに時間を計測できるフォームを
作成しました。

添付の画像において計測時間は「0:02:29」となっていますが、
これを「0:02」としたいと考えています。
コードをどのように書き換えればよいでしょうか？

ちなみに「○秒」のところは全て切り捨てにするつもりです。

ご存知の方ご教示願います。

●コード

Option Explicit

Dim inProcess As Boolean ' True なら計測中を表す
Private m_Kaishi As Date
Private m_Syuryo As Date

'開始時間をクリックするとラベル22が時間に変わる
Private Sub CommandButton6_Click()

Select Case inProcess
Case False

' 計測を開始する
inProcess = True
m_Kaishi = Time

Label22.Caption = FormatDateTime(m_Kaishi, vbShortTime)
Label23.Caption = ""
Label24.Caption = ""

CommandButton6.Caption = "作業終了"
Case True

' 計測を終了してインターバルを表示
inProcess = False
m_Syuryo = Time

Label23.Caption = FormatDateTime(m_Syuryo, vbShortTime)
Label24.Caption = CDate(m_Syuryo - m_Kaishi)

CommandButton6.Caption = "作業開始"

End Select

End Sub

Private Sub UserForm_Initialize()

CommandButton6.Caption = "作業開始"

Label22.Caption = ""
Label23.Caption = ""
Label24.Caption = ""

End Sub

回答No.1

imogasi · ベストアンサー

これはVBAの質問ですか？VB6の質問ですか。ユーザーフォームとあるのでVBAでやってみた。
VBAなら日付・時刻は日付・時刻シリアル値が使われているのでFormatDateTimeを使わなくても良いのではと思う。
Label1.Caption = Format(m_Kaishi, "hh:mm")など。
質問のコードはほんとに動きましたか？
VBAではないとか、私の方がおかしければ以下解答は無視してください。
ーー
この質問のために、全体的にコードを全部書いて質問しなければダメかなと思った。
ーー
標準モジュールに
Option Explicit
Public inProcess As Boolean ' True なら計測中を表す
Public m_Kaishi As Date
Public m_Syuryo As Date
ーー
ユーザーフォームにはコマンドボタン２つと、ラベル３つを設けた。
コマンドボタンは開始用と終了用です。
テストの都合上、コントロールの名称は質問と変わっている。
ユーザーフォームのコードに
Private Sub UserForm_Initialize()
MsgBox "aaa"
CommandButton1.Caption = "作業開始"
inProcess = False
Label1.Caption = ""
Label2.Caption = ""
Label3.Caption = ""
End Sub
ーー
Private Sub CommandButton1_Click()
Select Case inProcess
Case False
' 計測を開始する
inProcess = True
m_Kaishi = Time
MsgBox m_Kaishi
Label1.Caption = FormatDateTime(m_Kaishi, vbShortTime)
Label2.Caption = ""
Label3.Caption = ""
End Select
End Sub
Private Sub CommandButton2_Click()
CommandButton1.Caption = "作業終了"
Select Case inProcess
Case True
MsgBox "bbb"
' 計測を終了してインターバルを表示
inProcess = False
m_Syuryo = Time
Label2.Caption = FormatDateTime(m_Syuryo, vbShortTime)
Label3.Caption = FormatDateTime(m_Syuryo - m_Kaishi, 4)
CommandButton1.Caption = "作業開始"
End Select
End Sub
Label3.Caption = FormatDateTime(m_Syuryo - m_Kaishi, 4)は
http://homepage2.nifty.com/pasocon/nyumon/formatdatetime.html　を参考にした。
＝＝＝＝
Formatをつかったっ例　一応テスト済み
Private Sub CommandButton1_Click()
Select Case inProcess
Case False
' 計測を開始する
inProcess = True
m_Kaishi = Time
MsgBox m_Kaishi
'Label1.Caption = FormatDateTime(m_Kaishi, vbShortTime)
Label1.Caption = Format(m_Kaishi, "hh:mm")
Label2.Caption = ""
Label3.Caption = ""
End Select
End Sub

Private Sub CommandButton2_Click()
CommandButton1.Caption = "作業終了"
Select Case inProcess
Case True
MsgBox "bbb"
' 計測を終了してインターバルを表示
inProcess = False
m_Syuryo = Time
'Label2.Caption = FormatDateTime(m_Syuryo, vbShortTime)
Label2.Caption = Format(m_Syuryo, "hh:mm")
'Label3.Caption = FormatDateTime(m_Syuryo - m_Kaishi, 4)
Label3.Caption = Format(m_Syuryo - m_Kaishi, "hh:mm")
CommandButton1.Caption = "作業開始"
End Select
End Sub

お礼

imogasi様いつもご回答ありがとうございます。

2番目に記述していただいた Formatを使用した例で
試してみたところ、○秒のところは表示されなくなりました。
ありがとうございます。

参照のHPも閲覧についても「FormatDateTime」関数の使い方も
良く分かりました。今後の参考とさせていただきます。