VB.NETでのプログラミングについて

秒数から「○時間○分○秒」と表示されるプログラムを作りたいと考えています。出来たところまでをご説明致しますと、まずTextBoxを四つとButtonが一つと時間の単位が表示されるLabelを四つ作りました。そして問題のプログラムについてなんですが、TextBox「3600」秒と入力しButtonをクリックすると、他の三つのTextBoxに「1」時間「0」分「0」秒と表示されるといったプログラムを作成したいのです。どうかよろしくお願い致します。

No.2 ベストアンサー 回答者： perse 回答日時： 2005/10/14 22:17

vb6だけどこんなかんじ。

Dim time As Integer

Dim Hour As Integer
Dim Minute As Integer
Dim Second As Integer

time = 4000 '秒

Hour = time \ 3600 '商を求める
Minute = (time - Hour * 3600) \ 60
Second = time - Hour * 3600 - Minute * 60

MsgBox Hour & "時間" & Minute & "分" & Second & "秒"

'商を求めるときは小数点以下は切捨てる。
'.NETだったらMath.floorだったかな。

この回答へのお礼

とても参考になりました。

お礼日時：2005/10/22 11:09

No.3 回答者： keitakuna 回答日時： 2005/10/17 12:38

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

TextBox2.Text = Val(TextBox1.Text) \ 3600
TextBox3.Text = (Val(TextBox1.Text) Mod 3600) \ 60
TextBox4.Text = (Val(TextBox1.Text) Mod 3600) Mod 60
End Sub

No.1 回答者： 1050YEN 回答日時： 2005/10/14 22:13

Dim l_dt時間 As DateTime = System.DateTime.MinValue.AddSeconds(3600)

MsgBox( _
　　　　　"hour=:" & l_dt時間.Hour & vbCrLf _
　　　　& "min =:" & l_dt時間.Minute & vbCrLf _
　　　　& "sec =:" & l_dt時間.Second & vbCrLf _
　　　　& "msec=:" & l_dt時間.Millisecond & vbCrLf _
　　)