|
度々申し訳ありません。。
一応参考にプログラムしてみたのですが、何度か試したのですが時間が入力してもメッセージが0:00になってしまうのですが・・・
Dim sta1 As String
Dim sta2 As String
Dim sta3 As String
Dim ta1 As Date
Dim ta2 As Date
Dim ta3 As Date
Private Sub cmd時間内A_Click()
sta1 = txt時間内A1.Text
sta2 = txt時間内A2.Text
sta3 = txt時間内A3.Text
MsgBox Format(TimeValue(ta1) + TimeValue(ta2) + TimeValue(ta3),"hh:mm")
If IsNumeric(sta1) Then
ta1 = CDate(ta1)
Else
ta1 = 0
End If
If IsNumeric(sta2) Then
ta2 = CDate(ta2)
Else
ta2 = 0
End If
If IsNumeric(sta3) Then
ta3 = CDate(ta3)
Else
ta3 = 0
End If
すみませんがご指摘いただけたら光栄です。
お願いします。
|
|