|
▼DA さん:
>度々申し訳ありません。。
>一応参考にプログラムしてみたのですが、何度か試したのですが時間が入力してもメッセージが0:00になってしまうのですが・・・
このケースでは普通はこう書きます。
>Private Sub cmd時間内A_Click()
Dim sta1 As String
Dim sta2 As String
Dim sta3 As String
Dim ta1 As Date
Dim ta2 As Date
Dim ta3 As Date
> sta1 = txt時間内A1.Text
> sta2 = txt時間内A2.Text
> sta3 = txt時間内A3.Text
>
ここにmsgboxを置いても、ta1〜3にはデータが代入されていないので
>何度か試したのですが時間が入力してもメッセージが0:00になってしまうのでが・・・
は全く正常な処理。
>
> 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
MsgBox Format(ta1 + ta2 + ta3,"hh:mm")
自分が何をしているか理解した上でプログラムは動かしましょう。
プログラムは命令されたとおりしか動きませんから。
大怪我の元です。
#インデントもキチンとしましょう。これも間違いの元です。
|
|