残り時間の計算

質問

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

よろしくお願いします。

回答No.3

うぃず（@Wizard_Zero） · ベストアンサー

コードを拝見した限り次の点がよろしくないかと。
・文字列をDate型へ直接代入している点
　　StrictがOnであればここでビルドエラーが発生します。
・TimeStringが何を示しているのか不明
　　おそらく現在時刻だと思いますが・・・。
・変数名が何を示しているのか分かりにくい
　　数字ではなくちゃんと名前をつけてあげましょう。
・残り時間の計算式が疑問
　　Date型に対してTimeValueを使う必要性がわかりません。
・締め切り時刻を示すdtmDate2がどこにも使われていない
　　TimeString → 時刻Label.Text → dmtDate1 ですから、TimrString - TimeString をしていることになります。

「時刻」と「時間」は違います。２つの「時刻」の間隔を表すものが「時間」です。
この２つを表現するために.NETでは、「時刻」を表すDate型(DateTime型)、「時間」を表すTimeSpan構造体が用意されていますので、目的に合わせて使い分けましょう。

基本は「残り時間 = 締め切り時刻 - 現在時刻」という式ですが、実際には２つの時刻間隔(TimeSpan)を得るために、Subtractメソッドを使います。

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Dim dtClosing As Date ' 締め切り時刻
Dim spanRest As TimeSpan ' 締め切りまでの残り時間

dtClosing = Date.Parse(TextBox1.Text) ' TextBox1の内容を時刻型へ変換
spanRest = dtClosing.Subtract(Date.Now) ' 締め切りまでの残り時間を計算
TextBox2.Text = spanRest.TotalMinutes.ToString("0") ' 残り時間を「分」で表示

Label1.Text = Date.Now.ToString("HH:mm:ss") ' 現在時刻を表示
End Sub

回答No.2

hornet3

失礼。ちょっぴり訂正。

'文字列からDateTime型に変更するときの例
Dim dtmLimit As DateTime = System.DateTime.Parse("18:00:00")

'現在時間との差を求める例
Dim tspTime As TimeSpan = dtmLimit.Subtract(Now)

回答No.1

hornet3

以下は参考になるでしょうか。

'文字列からDateTime型に変更するときの例
Dim dtmLimit As DateTime = System.DateTime.Parse("18:00:00")

'現在時間との差を求める例
Dim tspTime As TimeSpan = dtmTime.Subtract(Now)