Zeitdifferenz in Minuten berechnen

[DeddyH]

So, damit ich nicht als Idiot dastehe, hier noch eine Lösung unter Verwendung von DateUtils:

Delphi-Quellcode:

function MinDiff(const sTime1, sTime2: string): Integer;
var Time1, Time2: TDateTime;
begin
  Time1 := Frac(StrToTime(sTime1));
  Time2 := Frac(StrToTime(sTime2));
  if CompareTime(Time1,Time2) > 0 then
    Time2 := IncDay(Time2);
  Result := MinutesBetween(Time1,Time2);
end;