TDateTime bei über 24h abbruch

[MrSpock]

Hallo Haegar,

das kann nicht sein, Frac liefert immer eine Real Zahl unter 1.00 zurück, damit liefert FormatDateTime nie einen Wert über 24:00! Poste bitte mal den Code mit dem Aufruf von Frac.

[Haegar]

@spock: na es ist aber so das ich anfangen lasse mit laufen, irgendwann is stopp, und der wert wird in datei gespeichert.....wenn ich nun neu stoppe, lade ich den alten wert, und die zeit zählt weiter!!
so kommt man doch locker über 24h.

das is ja das problem!
gruss haegar

[MrSpock]

Hallo Haegar,

das ist ja nicht der Punkt. Die Differenz, die du in der Variablen dauer speicherst, kann irgendeine Real Zahl sein, als Beispiel: 2.5 (das wären 2 Tage und 12 Stunden) wenn du aber Frac davor schreibst, kommt 0.5 raus. Frac liefert immer Ergebnisse, die kleiner als 1 sind, darum kann bei Anzeige von dauer, wenn du sie so berechnest wie ich beschrieben habe, nie mehr als 24:00 rauskommen. Poste doch bitte noch einmal deine Methode procedure TForm1.timerTimer(Sender: TObject), wie sie jetzt aussieht.

[Haegar]

Zitat von Haegar:

hab das bisher so gemacht!

Delphi-Quellcode:

procedure TForm1.timerTimer(Sender: TObject);
begin
 dauer:=Now-start+bisher;
 lbl_zeit.Caption:=FormatDateTime('t',dauer);
end;

//im FormCreate
ShortTimeFormat:='hh "h" nn "min" ss "s"';

gruss haegar

so sieht sie aus!

gruss haegar

[MrSpock]

Hallo Haegar,

damit es funktioniert, muss du es aber so machen:

Delphi-Quellcode:

procedure TForm1.timerTimer(Sender: TObject);
begin
  { Hier Frac einfügen }
  dauer := Frac(Now-start+bisher);
  lbl_zeit.Caption := FormatDateTime('t',dauer);
end;

[Haegar]

ja hab ich ja, aber das problem ist, das er über 24h laufen muss. bis 99 oder so!!

gruss haegar

[MrSpock]

Hallo Haegar,

ohhh sorry, da habe ich dich falsch verstanden, dann schau dir doch noch einmal die Lösung von Wolff68 an.

[Haegar]

MyHoursBetween-funktion ist ihm nicht bekannt. aus welcher unit ist die??

gruss haegar

[Daniel B]

Zitat von Haegar:

MyHoursBetween-funktion ist ihm nicht bekannt. aus welcher unit ist die??

DateUtils, heisst aber nur HoursBetween.

Grüsse, Daniel

[Haegar]

jetzt zählt er gar net mehr hoch (bleibt immer bei 0).

Delphi-Quellcode:

procedure TForm1.timerTimer(Sender: TObject);
begin
 dauer:=HoursBetween(Now,start);
 lbl_zeit.Caption:=FormatDateTime('t',dauer);
end;

gruss haegar