掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
日付時間型から経過時間を簡単に求める関数は？ (ID:45231)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
質問の意味を間違えていたみたいなので、 書き直しました、すいません。 こういう事でしょうか？ もしかすると、時間単位の計算間違っているかもしれません・・・。 procedure TForm1.Button1Click(Sender: TObject); var lft :Tdatetime; ltt :Tdatetime; lday :Tdatetime; time:string; T:integer; sc:integer; ms:integer; begin lft :=StrToDatetime('2013/09/10 00:00:00'); ltt :=StrToDatetime('2013/09/10 12:34:22'); lday :=ltt -lft; time := timetostr(lday); T := (strtoint(time[1] + time[2]) * 60); sc := (strtoint(time[4] + time[5]) * 60) div 10; ms := (strtoint(time[7] + time[8]) * 60) div 100; showmessage(inttostr((T * 60 )+ (sc * 60 ) + (ms * 60)) + '秒'); showmessage(inttostr((T + sc + ms )) + '分'); showmessage(inttostr(( T div 60 )+ ( sc div 600 ) + (ms div 6000) ) + '時間'); showmessage(time[1] + time[2] + '.' + inttostr(( sc div 600 ) + (ms div 6000))); showmessage(time[1] + time[2] + '.' + time[4] + time[5]+'.' + time[7] + time[8]); end;
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.