Timer viel zu ungenau?

[Lefko]

Zitat von negaH:

Hi

deine ständige Umrechnungen mit StrToFloat() sind unschön:

Delphi-Quellcode:

begin
  KostenProTag := KostenProMinute / 1440;
  OnlineZeit   := Now - Startzeit;
  OnlineKosten := OnlineZeit * KostenProTag; 
  MonatsZeit   := MonatsZeitVorOnlineStart + OnlineZeit;
  MonatsKosten := MonatsKostenVorOnlineStart + OnlineKosten;
  
  Label9.Caption  := FormatDateTime('hh:nn:ss', OnlineZeit);
  Label11.Caption := FormatDateTime('dd Tage hh:nn:ss',  MonatsZeit);

// aktuelle Kosten der aktuelle Onlinezeit
  Labelxx.Caption := FormatFloat('0.00#,## €', OnlineKosten);
// kumulierte Monatskosten
  Labelxy.Caption := FormatFloat('0.00#,## €', MonatsKosten);
.. usw. usw.
end;

Gruß Hagen

das mit dem kostenprotag versteh ich nich.....