日付（時間）の計算について

解決

NP 2005-02-08 19:35:29 No: 13123

現在の日時から10000秒後の時間を取得する方法がわかりません。
10000秒を分→時間と変換して計算するしかないのでしょうか？

【例】
現在の日時 2005/02/08 23:58:25 で
10000秒後の日時を取得したい

どなたか教えて頂けると幸いです。
よろしくお願い致します。

りおりお 2005-02-08 19:49:46 No: 13124

TDateTime 型にしてから演算します

procedure TForm1.Button1Click(Sender: TObject);
var
  dt:TDateTime;
begin
  dt := VarToDateTime('2005/02/08 23:58:25');
  dt := dt + 10000/(24*60*60);
  Label1.Caption := DateTimeToStr(dt);
end;

NP 2005-02-08 20:10:52 No: 13125

りおりお様

貴重なお時間を割いて頂き、
回答ありがとうございました。
10000秒後の日時取得できました。
今後ともよろしく御願い致します。

kkk 2005-02-08 20:13:36 No: 13126

もっと簡単な方法

dt := IncSecond(Now, 10000);

kkk 2005-02-08 20:15:01 No: 13127

IncSecondを使用するには
uses に DateUtils が必要です。

NP 2005-02-08 23:21:56 No: 13128

kkk様

貴重なお時間を割いて頂き、
回答ありがとうございました。

私が開発環境を記述していませんで、申し訳ありませんでした。
開発環境は、WindowsXP、Delphi5です。

「DateUtils」は、Delphi6から使用可能のようです。
Delphiのバージョンがあがったときに使用したいと思います。

今後ともよろしく御願い致します。