時間の計算方法は？
解決２つのテキストボックスに時間を入力して、
ボタンをクリックしたらその差は何時間かラベルに表示する処理を作りたいと思っています。
以下のような処理を作りたいのですが、わからないことが多いので、
アドバイスを下さい。
＜質問１＞
まず、Edit1に開始時間を入力し、Edit2に終了時間を入力します。
どちらも２４時間表記です。
この時に「HH:MM」と時間と分だけを入力させて、不正値を入力したら
メッセージを表示させるようにしたいのですが、簡単にチェックできる方法はありませんか？
左の２桁が23を超えていないか、右の２桁が59を超えていないか、と
チェックしなくても出来るような気がするのですが、わかりませんでした。。
秒は入力させたくないのですが、何かいい方法はありませんか？
＜質問２＞
開始時間（Edit1）と終了時間（Edit2）に入力された時間を基に計算して
作業時間をLabel1に表示させたいと思います。
普通に「終了時間−開始時間」とすればいいと思うのですが、
開始時間に20:00、終了時間に3:00と入力された場合には
そのまま「終了時間−開始時間」をしてしまうと計算結果がおかしくなってしまいます。
終了時間（左２桁）が２３を超えていたら、終了時間に２４を足してから計算するしかないのでしょうか？
以上２点で何かいい方法がないか悩んでいます。
片方だけでも結構ですので、アドバイスを下さい。
よろしくお願いします。
えみさん、こんにちは
＜質問１＞
var
Time1:TTime;
TTimeに変換してみます。
try
time1 := StrToTime(Edit1.text);
except
ShowMessage(Edit1.text + 'は時刻ではありません。');
Edit1.Setforcus;
end;
＜質問２＞
こちらは、私もあやふやです。
24:00いないであることが条件ですが、やはり、time1>time2の場合、
24:00を超しているので、別の計算にした方がよいでしょう。
本当は日にちが入らないといけないのですが、たぶんそんな入力は
しないと思います。
HOtaさん、ありがとうございます。
＜質問１＞
これは私も考えたのですが、この方法でEdit1に「27:80」と入力すると
「EConvertErrorクラスの例外を生成しました」のエラーが表示されてから
自分で設定したエラーメッセージが表示されます。
これはDelphiから実行しているから表示されるだけであって、
特に気にしなくてもいいのでしょうか？
＜質問２＞
ご察しの通り、日付は持っていないですね。
出来るだけ簡単に入力したい、ということなので。。
別の計算方法というと、やはり２４時間を足してから引き算をする、
という方法が無難でしょうか？
えみさん、こんにちは
Delphiからのエラーかどうかは、
デバッガオプションの言語固有の例外ページの
Delphi言語の例外で停止を外してみて下さい。開発環境の
エラーが避けられます。
＜質問２＞は
単純にした法が良いでしょう。後で、条件が出てくれば、
何か関数にした方が良いかもしれません。
チェックを外したら開発環境のエラーは避けられました。
＜質問１＞はこの方法がいいでしょうね。
＜質問２＞は単純に２４を足して計算します。
いろいろなところで使う処理ですので、
関数で作成しておくことにします。
ありがとうございました。
| ツイート |  |