|
▼kanabun さん:
>▼マクロ さん:
>>--------------------------------------------------------
>>TextBox76にTextBox77とTextBox78の累計時間を表示しようとしましたが
>>累計されず、TextBox77かTextBox78のどちらかの時間しか表示されません。
>
>TextBox76 とか TextBox77 とか、言われても、こちらには、それが
>どの時刻を表示するテキストボックスなのか分かりません。
>そのユーザーフォームの コントロールの配置状況と、
>テキストボックスとCommandButtonの関係を示してもらえれば、
>もう少しは想像もできるかもしれませんが (-_-;
>
>
>>もっともシンプルな方法を指導願います。
>
>いずれにしても、テキストボックスに 時刻だけ表示してしまうと、
>測定開始時と 測定終了時とで 日付が変更になっているとき、正しく
>計算されません。「時刻」だけなので。
>なので、
>t1,t2,... t5,t6 のDate型の変数に 日付の情報付きで 「日時」を
>覚えさせておく方法を提案したわけです。
> t1 = Now()
> 〜
> t6 = Now()
>
>そこら辺の配慮をくみ取っていただかないと、いつまでたっても、
>堂々巡りですよ。
仕事上、返信できなくてすいません。
土日で考えたのですが、構文は
『時間の集計について』(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
----------------------------------------------------------------------
のようになります。各CommandButtonは時間表示を
また各TextBoxは
TextBox49:開始時間 TextBox50:終了時間 TextBox78=50-49:小計時間
TextBox53:開始時間 TextBox54:終了時間 TextBox77=54-53:小計時間
TextBox76:累積時間(TextBox78+TextBox77)
以上の様になるのですが、小計時間は表示OKなのですが、累積時間(TextBox78+TextBox77)がうまく足されません。 TextBox76.Text = Format$(TextBox78 + TextBox77 + TextBox82, "hh:nn") のようにしてみましたが、うまく足されません。何回もすいませんが、お知恵をお願いいたします。
|
|