日付（時間）の計算について (ID:13124)

名前

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

本文 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;