[[20080630163838]]　『時間の集計について』（ExVBAかじりはじめ）　ページの最後に飛ぶ

『時間の集計について』（ExVBAかじりはじめ）
フォーム上で時間の集計をしたいのですが、構文は以下の通りです。

Private Sub CommandButton46_Click()
TextBox49 = Format$(Now(), "hh:nn")
End Sub

Private Sub CommandButton47_Click()
Dim t1 As Double
Dim t2 As Double

  TextBox50.Text = Format$(Now(), "hh:nn")
  t1 = TimeValue(TextBox49.Text)
  t2 = TimeValue(TextBox50.Text)
  TextBox78.Text = Format$(t2 - t1, "hh:nn")

  TextBox76.Text = Format$(TextBox78 + TextBox77 + TextBox82, "hh:nn")
End Sub

Private Sub CommandButton48_Click()
TextBox53 = Format$(Now(), "hh:nn")
End Sub

Private Sub CommandButton49_Click()

Dim t3 As Double
Dim t4 As Double

  TextBox54.Text = Format$(Now(), "hh:nn")
  t3 = TimeValue(TextBox53.Text)
  t4 = TimeValue(TextBox54.Text)
  TextBox77.Text = Format$(t4 - t3, "hh:nn")
  TextBox76.Text = Format$(TextBox78 + TextBox77 + TextBox82, "hh:nn")

End Sub

TextBox49：開始時間
TextBox50：終了時間
TextBox78＝50-49：小計時間

TextBox53：開始時間
TextBox54：終了時間
TextBox77＝54-53：小計時間

TextBox76：累積時間
以上の様になるのですが、小計時間は表示OKなのですが、
累積時間(TextBox78＋TextBox77)がうまく足されません。
TextBox76.Text = Format$(TextBox78 + TextBox77 + TextBox82, "hh:nn")
のようにしてみましたが、うまく足されません。
どうすればいいのでしょうか？先輩方、お知恵をお願いいたします。

 時間の計算は両手の指に余りますから、ようわかりまへんねんけど
 timevalue(textbox78)+timevalue(textbox77)+timevalue(textbox82),"hh:nn"
 としてみたらどうなります？
 　　　　　（弥太郎）

『時間の集計について』（ExVBAかじりはじめ）

アドバイスありがとうございます。

 TextBox76.Text = Timevalue(TextBox78.Text) + Timevalue(TextBox77.Text) + Timevalue(TextBox82.Text), "hh:nn")
 にしましたが、コンパイルエラーが出ます。
 対処方法を教えてください。
 お願いします。

 TextBox76.Text = Format$(Timevalue(TextBox78.Text) + Timevalue(TextBox77.Text) + Timevalue(TextBox82.Text), "hh:nn")
 というアドバイスだったと思いますが？
 (ROUGE)

アドバイスありがとうございました。
おかげで、うまく動くようになりました。

（ExVBAかじりはじめ）

アドバイスありがとうございました。さらに質問ですいません。

TextBox76が累計時間
TextBox78、TextBox77、TextBox82が小計時間になっていますが、
小計時間と累積時間をCommandButtonでワークシートに保存するようにしていますが、ここで、TextBox78、TextBox77には時間が入っていますが、
TextBox82には未入力時にワークシートに飛ばすと、00:00とワークシート上に表示されてしまいます。00:00と表示しないようにするには何か構文を足せばよいのでしょうか・・？次から次へ質問ばかりですいませんです。
よろしくお願いいたします。

 ワークシートに飛ばす前に　条件を入れて、
 0なのか0以外なのか　確認してみるのはどうでしょう。

 (HANA)

コメント返信：

[ 一覧(最新更新順) ]

[[20080630163838]] 『時間の集計について』（ExVBAかじりはじめ） ページの最後に飛ぶ

[[20080630163838]]　『時間の集計について』（ExVBAかじりはじめ）　ページの最後に飛ぶ