Datum und Uhrzeit - Zeit

[Andreas Schilling]

Delphi-Quellcode:

procedure Subtrahiere_MIN;
  var Zeit : TDatetime;
begin
  Zeit := StrToDateTime('05.01.2008 00:01:12');
  // Zeit ist ein float- Wert , 1 Tag = 1, eine Stunden = 1 / 24 usw. 
  //              1 Tag / 24 Stunden / 60 Minuten * 2 Minuten
  Zeit := Zeit - (1 / 24 / 60 * 2);
  ShowMessage(datetimetostr(Zeit));
end;