|
▼kanabun さん:ありがとうございます。
以下のように構文を設定しましたが、エラーが出ます。
どこを直せばいいでしょうか?ご指導お願いします。
Private Sub CommandButton1_Click()
TextBox1.Text = Format$(Now(), "h:nn")
End Sub
--------------------------------------------------------------------------
Private Sub CommandButton2_Click()
Dim t1 As Double
Dim t2 As Double
TextBox2.Text = Format$(Now(), "h:nn")
t1 = TimeValue(TextBox1.Text)
t2 = TimeValue(TextBox2.Text)
TextBox3.Text = Format$(t2 - t1, "hh:nn")
TextBox10.Text = TimeValue(TextBox3.Text)_ + TimeValue(TextBox6.Text)
End Sub
----------------------------------------------------------------------------
Private Sub CommandButton3_Click()
TextBox4.Text = Format$(Now(), "h:nn")
End Sub
----------------------------------------------------------------------------
Private Sub CommandButton4_Click()
Dim t1 As Double
Dim t2 As Double
TextBox5.Text = Format$(Now(), "h:nn")
t1 = TimeValue(TextBox4.Text)
t2 = TimeValue(TextBox5.Text)
TextBox10.Text = TimeValue(TextBox3.Text)_ + TimeValue(TextBox6.Text)
|
|