FormatDateTime funktioniert auf einmal nicht mehr

[toyoman]

Delphi-Quellcode:

var
  stunden,minuten: integer;
  durchschnittprotag,totalminuten: integer;
  i:integer;
  s:string;

Delphi-Quellcode:

          durchschnittprotag:=totalminuten div cdRechnen.fieldbyname('ANTEIL_TAG').AsInteger;
          s:=formatdatetime('hh:nn',durchschnittprotag div 24);
          if i=1 then ed_schnitt_1.text:=s:

DurchschnittproTag ergibt in Minuten 504.
Wenn ich den FormatDateiTime anwenden wie im Beispiel oben bekomme ich komischerweise immer : 00:00. Warum das? Ich verstehs nicht. In einer anderen Prozedur verwende ich den praktisch gleichen Befehl und funktioniert...

seht ihr einen Fehler?

[Klaus01]

vielleicht so?
s:=formatdatetime('hh:nn',durchschnittprotag /24); Grüße
Klaus

[Hawkeye219]

Hallo,

Zitat von Klaus01:

vielleicht so?

504 ist ein Vielfaches von 24...

FormatDateTime('hh:nn', durchschnittprotag * 60 / 86400); Gruß Hawkeye

[toyoman]

Funktioniert tatsächlich so, aber wie kommst du auf 86400?
Ich kann dir nicht folgen...

Zitat von Hawkeye219:

Hallo,

Zitat von Klaus01:

vielleicht so?

504 ist ein Vielfaches von 24...

FormatDateTime('hh:nn', durchschnittprotag * 60 / 86400); Gruß Hawkeye

[Blackheart]

Wieviel sec. hat denn der Tag.

[shmia]

FormatDateTime('hh:nn', xxx) kann maximal 23:59 liefern, da der ganzzahlige Anteil (entspricht den Tagen) intern abgetrennt wird.
Also kann man folgendes schreiben:
s:= Format('%d Tage', [Int(x)])+formatdatetime('hh:nn', Frac(x));

[Hawkeye219]

Hallo shmia,

nimm Trunc statt Int, dann paßt es:

s:= Format('%d Tage ', [Trunc(x)])+formatdatetime('hh:nn', Frac(x)); Gruß Hawkeye