残り時間の計算
VB2008
残り時間の計算方法について教えてください。
ユーザーフォーム上に
時刻Label(現在時刻表示)
textbox1(締切時刻)
textbox2(締切時刻までの残り時間)
を配置させています。
ユーザーフォームを開いた時に
textbox1に表示している締切時刻までの
残り時間をリアルタイムにtextbox2に表示
させたいのです。(分と秒)
時刻Label(現在時刻表示)の表示は13:00:00
textbox1(締切時刻)の表示例は18:00
残り時間は最大で240分です。
下記のようなコードを書いたのですがエラーになります
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Dim dtmData1 As DateTime
Dim dtmData2 As DateTime
Dim dtmData3 As DateTime
時刻Label.Text= TimeString
dtmData1 = 時刻Label.Text
dtmData2 = textbox1.Text
dtmData3 = TimeValue(dtmData1) - (TimeString)
textbox2.Text=dtmData3
End Sub
よろしくお願いします。
お礼
ありがとうございます。 簡単そうで、意外と出てこなかった英文です。 しっかり、覚えます。