Hallo

Ich ermittle in meinem Programm die Stunden zwischen zwei Zeitangaben z.b von 09:00 bis 10:25 Als Ausgabe lass ich mir die Stunden dann in Dezimalwerten anzeigen in diesem Fall kommt also (1,41666666666667)raus. Jetzt hab ich aber 1. das Problem, wenn ich von 07:00 bis 08:00 ermittle müsste ja (1,0) rauskommen aber, es kommt (0,999999999999999) raus. Wenn ich aber von 08:00 bis 09:00 ermittle dann zeigt er mir (1,0) an also richtig, blos woran liegt das ? Kann es sein das es was mit Primzahlen zu tun hat ? weil ja die (7) eine wäre. Das 2. Problem ist das ich nur zwei stellen nach dem Komma anzeigen möchte, wie könnte ich dies lösen?

zusammenfalten · markieren

Delphi-Quellcode:

 
procedure TForm1.SpeedButton1Click(Sender: TObject);
var
Start, Ende, Gesamt: TDateTime;
begin

 Start := StrToDateTime(eStart.Text);
 Ende := StrToDateTime(eEnde.Text);
 Gesamt:= (Ende - Start);

 eGesamt.Text := FloatToStr(24*(Gesamt)); //Dezimalausgabe

end;

Nimm besser einen TDateTimePicker

Mit

Frac(Gesamt); bekommst Du schon den Nachkommaanteil Deines TDateTime Wertes, diesen müsstest Du nur noch in Stunden umrechnen.

Zitat von newuser01:

Das 2. Problem ist das ich nur zwei stellen nach dem Komma anzeigen möchte, wie könnte ich dies lösen?

Mit der Funktion format:

label1.caption := format('%.2f',[Gesamt*24]) ;

TTime/TDate/TDateTime sind eigentlich nur Double (reelle Typen)

und diese haben nunmal Rundungsfehler.


Diese kannst du dann höchstens selber entsprechend der gewünschten Auflösung auf passende Werte runden.

Also das mit den Kommastellen funktioniert schon mal. Ich lass aber besser 3 Stellen nach dem Komma anzeigen ist wohl nachher nach dem addieren genauer oder Das (0,999999999999999) Problem ist damit ebenfalls gelöst, zumindest zeigt er bei 07:00 - 08:00 jetzt 1,000 an


DANKE FÜE DIE HILFE !!!

Zitat von newuser01:

Das (0,999999999999999) Problem ist damit ebenfalls gelöst, zumindest zeigt er bei 07:00 - 08:00 jetzt 1,000 an

das Format/die FPU rundet standardmäßig auf/ab, also da funktioniert es ... falls aber jemand/etwas in deinem Programm das Rundungsverhalten der FPU umstellt, dann war's das wieder mit dem "es klapp".
Aber im Normalfall sollte es wohl klappen

FPU ?


Oder wäre es besser die Zeit zwischen zwei Zeitangaben erst in reine Minuten umzurechnen und dann erst alle addieren und in Stunden (Dezimal) umrechnen ? Blos wie mach ich das

moin,

es gibt in der RTL dazu viele hilfreiche Funktionen, die du verwenden könntest. Oder aber du schreibst dir selbst ein paar kleine Funktionen, die das Problem lösen.

Ich würde die beiden Daten in Sekunden umrechnen und anschließend vom größeren Wert den kleineren abziehen. Dann hast du die Differenz in Sekunden und müßtest dann lediglich von Sekunden in Minuten/Stunden umrechnen.

Wenn ich nur mal "Minuten" in der Delphihilfe eingebe bekomme ich zb. für "DateUtils" ein haufen "Routinen" ausgespuckt. Aubacke sich dort erstmal durchfinden Na OK ich habe ja noch ein paar Jährchen Zeit