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

解決

---

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

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

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

編集    削除

---

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;

編集    削除

---

りおりお様

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

編集    削除

---

もっと簡単な方法

dt := IncSecond(Now, 10000);

編集    削除

---

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

編集    削除

---

kkk様

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

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

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

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

編集    削除

---

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

←解決時は質問者本人がここをチェックしてください。