HI,

ich suche eine Funktion oder Snippet für die Zeitberechnung ohne 24 Stundengrenzen.

also das 26:15 std nicht als "02:15" ausgeben werden. Ich hab zwar gesucht, aber nichts wirklich hilfreiches gefunden.

Wäre nett wenn mir da jemand weiterhelfen könnte.


Danke

MkA2k

Der Type Time kapselt nun mal Zeitpunkte und keine Spannen. Brauchst du dass, mußt du das wohl selber implementieren.

Du könntest die Funktion

function MinutesBetween(const ANow, AThen: TDateTime): Int64; aus der Unit DateUtils benutzen.

Mit div 60 kannst Du dann die Stunden ermitteln
und mit mod 60 die restlichen Minuten.

Grüße
Klaus

Hallo MkA2k,

du mußt die Ergebnisse der Berechnung nur richtig interpretieren:

markieren

Delphi-Quellcode:

var
  Date1, Date2, Difference : TDateTime;
begin
  Date1 := StrToDateTime('01.11.2006 10:00:00');
  Date2 := StrToDateTime('02.11.2006 12:15:00');
  Difference := Date2 - Date1;
  ShowMessage (IntToStr(Trunc(Difference * 24)) + FormatDateTime(':nn:ss', Difference));
end;

Die Online-Hilfe erklärt, in welchen Format die Daten im Typ TDateTime abgelegt sind.

Gruß Hawkeye

Oder so... t kann z.B. eine Zeitdifferenz sein, wie 1 Tag, 2 Stunden und 15 Minuten

markieren

Delphi-Quellcode:

function Minuten (t : TDateTime) : string ;
begin
     Result := Format ('%.2d:%s',[trunc(t)*24+trunc(Frac(t)*24),formatdatetime('nn',t)]) ;
end ;

Hi

Ich danke euch beiden . Beide Samples funktionieren bestens.