Zeitdifferenz in Minuten berechnen

[Christian Seehase]

Moin Invalid_Operation,

leider fällt mir da keine Lösungshilfe ein, sondern nur eine Lösung:

Delphi-Quellcode:

var
  tiDiff   : Double;
  wdHour   : Word;
  wdMinute : Word;
  wdSecond : Word;
  wdMSec   : Word;

begin
  // Erst einmal die Zeitdifferenz berechnen
  tiDiff := StrToTime(edtNachher.Text)-StrToTime(edtVorher.Text);
  // Wenn der Wert negativ ist 24 Stunden aufaddieren.
  // Da die Vorkommastellen die Tage angeben muss 1 addiert werden.
  if tiDiff < 0 then tiDiff := tiDiff + 1;
  // und ausrechnen
  DecodeTime(tiDiff,wdHour,wdMinute,wdSecond,wdMSec);
  ShowMessage(IntToStr(wdHour*60+wdMinute));
end;