時間計算について

質問

いつもお世話になっております。

今回の内容は私にとってとても厄介で是非皆様のお力を
お借りしたいと思っているのですが。

さて内容です。
項目
「設定時間」・・・「秒」単位：３桁
「処理数」・・・・処理する数：６桁

「設定時間」×「処理数」で、総時間（秒）を割り出し
ます。

「開始時間（時：0～23）」・・・Comboboxで手入力。
「開始時間（分：00～30）」・・・Comboboxで手入力。
（どちらもランダムで設定可能。）

「終了時間（時）」
「終了時間（分）」　この２項目に開始時間に上記の計算で割り出した総時間を加算した結果を表示させたいのですが。。。

力量不足でどうにも思いつきません。
よろしくお願いします！

回答No.2

nao_2 · ベストアンサー

関数ってなに？・・・っていう無垢なころに以下の方法でムリヤリ作ったことあります(Excelで）

入力は現状のままで（内部計算時に）時刻を秒表現に換えて計算します。

　　時刻表現　　　　　　　秒表現
００時００分００秒　＝　　　　　０秒
００時００分０１秒　＝　　　　　１秒
　　　・
　　　・
２３時５９分５９秒　＝　８６３９９秒

内部に対応テーブルを設けて走査してもいいですが、せっかくですからプログラムらしく
計算で求めてみます^^;。

手順は、
　a 総時間数を秒表現
　b 開始時刻を秒表現　（時*60*60）＋（分*60）＋（秒）
　c a+b
　d cを時刻表現に戻す　
　　(a) c / 86400　の商を「日」
　　(b) (a)の余り / (60*60) の商を「時」
　　(c) (b)の余り / (60) の商を「分」
　　(d) (c)の余り　を「秒」
end sub

(ex
設定時間　＝　９９９秒
処理数　　＝　９９９９９９
開始時刻　＝　１２時１５分３０秒

a　９９９ * ９９９９９９ ＝ ９９８９９９００１秒
b　（１２時*60*60）＋（１５分*60）＋（３０秒）＝ ４４１３０秒
c　a+b ＝ ９９９０４３１３１
d　(a)　９９９０４３１３１ / 86400　＝　１１５６２「日」あまり８６３３１
　　(b)　８６３３１ / (60*60)　＝　２３「時」あまり３５３１
　　(c)　３５３１ / (60)　＝　５８「分」あまり５１
　　(d)　５１「秒」

終了時刻　：　「１１５６２日後の２３時５８分５１秒」

検算してませんので数字に間違いがあったらごカンベン・・・
全てのケースで検証してませんので十分テストして手順に誤りがあったら教えてくださいぜひ^^;

メリットがあるとすれば、手順を紙に書いておくことで、何らかの理由で関数が使えない環境下でも計算可能です。（システムダウン時の手計算とか（冷汗）

お礼

非常にご丁寧なご回答、大変感謝しています。
nao_2さんの方法だと、分かりやすいですね。
是非参考にさせて頂きます。

回答No.5

todo36

DATE型でやるならこんな感じ

Dim d As Date
d = DateAdd("s", 999 * 999999, CDate("12:15:30"))
MsgBox CInt(d) & "日後の" & Format(d, "hh:mm:ss")

個人的には#2の方法がわかりやすいと思います。

お礼

アドバイス、ありがうございます。
そうですね、私もそう思っています。
またつまづきようでしたら、ご質問させて頂きますので
是非よろしくお願いします！（ご回答くださったみなさんも。）

回答No.4

SpiralGalaxy

例えば　2003/03/25 12:34 の n秒後の年月日時分秒を求めるとすると

ボクはＣ＋＋使い（ＭＦＣ）なのでＣ＋＋だと
CTime t1 = new CTime(2003,3,25,12,25,0);
CTime t2 = new CTime(t1.getTime() + (n * 1000));
という２行で計算できます。

VisualBasic カテゴリなのでこれに当てはまるようなコーディングを考えると

Dim ddd As Date
ddd = DateAdd("s", n, CDate("2003/03/25 12:34:00"))

この一行でできないでしょうか。僕は VisualBasic は全くできません。ただヘルプをみて推測しただけですが、他の方フォローしてくだされば幸いです。

Ｃ＋＋は本職なので専門家にさせていただきました（＾＾；

お礼

なるほど、私は逆にＣ＋＋は全く分かりませんが（時間計算も経験ありませんが。。。）、アドバイス、ありがとうございます！

回答No.3

TAGOSAKU7

気になったので発言

時間計算の余りを算出するときの基本
「/」ではなく
「￥」を使用

あと参考までに
Debug.Print 60 * 60 * 24
だと、オーバー風呂します
Intの計算として扱われます。

Debug.Print 60& * 60& * 24&
として、Longを明示するとオーバー風呂いたしません。

あ～いい～湯加減ｗ

お礼

ありがとうございます。
参考にさせていただきます。

回答No.1

noname#4564

以下の関数を使用すれば実現可能です。

TimeSerial
DateDiff
Hour
Minute
Second

注意点ですが、日付を跨ぐ場合、日付の情報がないと、正しい時間計算ができません。
その場合、

DateSerial
DateDiff
Year
Month
Day

の各関数も調べておいた方がよいでしょう。

大きなお世話かもしれませんが、

「開始時間」、「終了時間」は、それぞれ、
「開始時刻」、「終了時刻」の方が適切では？

お礼

大変分かりやすいご説明、ありがとうございます。
さっそく活用してみます。

。。。「時刻」に修正します。
ご指摘ありがとうございます。