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