Einzelnen Beitrag anzeigen

newuser01

Registriert seit: 30. Aug 2006
248 Beiträge
 
Delphi 7 Professional
 
#15

Re: Stunden/Minuten in Dezimalwerten

  Alt 13. Apr 2007, 12:40
Also kann ich bei dieser Methode bleiben?

Delphi-Quellcode:
procedure TForm1.SpeedButton1Click(Sender: TObject);
var
Start, Ende, Gesamt: TDateTime;
iTmp:Integer
begin

Start := StrToDateTime(eStart.Text); //zb. von 08:00
Ende := StrToDateTime(eEnde.Text); // bis 09:00
Gesamt:= (Ende - Start);

iTmp := Round((Gesamt) * (24*60));

eGesamt.Text := IntToStr(iTmp);

end;
und anschließende Umrechnung der Gesamtminuten in Stunden mit

stunden := gesamtminuten div 60;
wäre das also ziemlich genau ?
Gruß: Holger

[Hobby-Programmierer]
  Mit Zitat antworten Zitat