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?

Delphi-Quellcode:

s:=formatdatetime('hh:nn',durchschnittprotag /24);

Grüße
Klaus

[Hawkeye219]

Hallo,

Zitat:

Zitat von Klaus01

vielleicht so?

504 ist ein Vielfaches von 24...

Delphi-Quellcode:

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:

Zitat von Hawkeye219

Hallo,

Zitat:

Zitat von Klaus01

vielleicht so?

504 ist ein Vielfaches von 24...

Delphi-Quellcode:

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

Gruß Hawkeye

[Blackheart]

Wieviel sec. hat denn der Tag. :wink:

[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:

Delphi-Quellcode:

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

[Hawkeye219]

Hallo shmia,

nimm Trunc statt Int, dann paßt es:

Delphi-Quellcode:

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

Gruß Hawkeye