Stunden/Minuten in Dezimalwerten

[newuser01]

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?

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;