２つの時間から作業時間を算出したい
●質問の主旨
「開始時間」と「終了時間」を予め表示させておき、
「終了時間」-「開始時間」=「作業時間」とするには、
どのようなコード記述をすれば良いでしょうか？ご教示願います
●質問の補足
１．「作業開始」ボタンを押すと、「開始時間」が現在の時間に変わります。
２．「作業終了」ボタンを押すと、「終了時間」が現在の時間に変わります。
３．「作業終了」の処理が終わると同時に、赤色の部分が、
「終了時間」-「開始時間」=「作業時間」の時間計算を行い、計算結果を
表示させたいと考えています。
４．時間計算の上、表示を「0：00」（○時間○分）としたいと考えています。
５．現在のコードでは計算がされておらず、常に「0：00：00」が表示されます。
●コード
'開始時間をクリックするとラベル22が時間に変わる
Private Sub CommandButton6_Click()
With Me.CommandButton6
Me.Label22.Caption = FormatDateTime(Time, vbShortTime)
End With
End Sub
'終了時間をクリックするとラベル23が時間に変わる
Private Sub CommandButton7_Click()
With Me.CommandButton7
Me.Label23.Caption = FormatDateTime(Time, vbShortTime)
End With
Call sagyoujikan
End Sub
'作業時間の算出
Private Sub sagyoujikan()
Dim kaishi As Date
Dim syuryo As Date
kaishi = DateDiff("h", Label22, Label23)
syuryo = DateDiff("m", Label22, Label23)
Me.Label24.Caption = kaishi + syuryo
End Sub
以上よろしくお願い申し上げます。使用機種はWindowsVistaで、
Excel2007です。私はVBA初心者です。
