VB６での時間計算について

質問

VB６での時間計算について

VB６で時間計算のプログラムを作成しています。
しかし、行き詰ってしまいました。

どなたかご教授願います。

３時５０分から１０時２０分は何時間分経っているかという計算式で悩んでいます。
時間を打ち込み用にテキストボックスを４つ作ってまして、一つ目に「３」、二つ目に「５０」、三つ目に「１０」、四つ目に「２０」という風に打ち込みコマンドボタンを押すと6.5時間と算出されテキストボックスかラベルに表示されるといったことをするにはどうしたらいいのでしょうか？

回答No.2

imogasi · ベストアンサー

VB6の環境がないので、ＶＢＡでテストしました。
ＶＢ６にもＴｉｍｅＳｅｒｉａｌ関数が有ると思うので、ＶＢ６＆フォームで、やってみてください
（http://www.pursue.ne.jp/Document_doc/doc0011.htmのＴの項）
ＵｓｅｒＦｏｒｍ１にＴｅｘｔＢｏｘ１－ＴｅｘｔＢｏｘ４まで４つのＴｅｘｔｂｏｘを貼り付け。
コマンドボタンを１つ貼り付け
Private Sub CommandButton1_Click()
t1 = TextBox1.Text
t2 = TextBox2.Text
t3 = TextBox3.Text
t4 = TextBox4.Text
tv1 = TimeSerial(Val(t1), Val(t2), 0)
MsgBox tv1
tv2 = TimeSerial(Val(t3), Val(t4), 0)
MsgBox tv2
MsgBox Format(tv2 - tv1, "hh:mm:ss")
End Sub
を実行して、参考にしてください。
＞すと6.5時間と算出され
これは必要ですか。６時間３０分ではダメ？
Private Sub CommandButton1_Click()
t1 = TextBox1.Text
t2 = TextBox2.Text
t3 = TextBox3.Text
t4 = TextBox4.Text
tv1 = TimeSerial(Val(t1), Val(t2), 0)
MsgBox tv1
tv2 = TimeSerial(Val(t3), Val(t4), 0)
MsgBox tv2
MsgBox Format(tv2 - tv1, "hh:mm:ss")
MsgBox Hour(tv2 - tv1)
MsgBox Minute(tv2 - tv1) / 60
End Sub
を参考に
＞テキストボックスかラベル
は手抜き省略。上記ではＭｓｇｂｏｘで表示。修正は直ぐ判るでしょう

回答No.1

tyome2

こんにちわ。

１．一つ目「３」、二つ目「５０」を１つの文字列にする。
２．三つ目「１０」、四つ目「２０」を１つの文字列にする。
３．１と２で作られた文字列を元に時間の計算をする。
４．出力

以上です。

コーディングは頑張ってください。