|
▼kanabun さん:ありがとうございます。
下記のように変更しましたが、
-------------------------------------------------------
Private Sub CommandButton46_Click()
TextBox49 = Format$(Now(), "h:nn")
End Sub
-------------------------------------------------------
Private Sub CommandButton47_Click()
Dim t1 As Double
Dim t2 As Double
TextBox50.Text = Format$(Now(), "h:nn")
t1 = TimeValue(TextBox49.Text)
t2 = TimeValue(TextBox50.Text)
TextBox78.Text = Format$(t2 - t1, "hh:nn")
TextBox76.Text = Format$(t2 - t1 + t4 - t3, "hh:nn")
End Sub
--------------------------------------------------------
Private Sub CommandButton48_Click()
TextBox53 = Format$(Now(), "h:nn")
End Sub
--------------------------------------------------------
Private Sub CommandButton49_Click()
TextBox54 = Format$(Now(), "h:nn")
Dim t1 As Double
Dim t2 As Double
TextBox54.Text = Format$(Now(), "h:nn")
t3 = TimeValue(TextBox53.Text)
t4 = TimeValue(TextBox54.Text)
TextBox77.Text = Format$(t4 - t3, "hh:nn")
TextBox76.Text = Format$(t2 - t1 + t4 - t3, "hh:nn")
--------------------------------------------------------
TextBox76にTextBox77とTextBox78の累計時間を表示しようとしましたが
累計されず、TextBox77かTextBox78のどちらかの時間しか表示されません。
もっともシンプルな方法を指導願います。
|
|