Timer viel zu ungenau?

[Lefko]

Zitat von negaH:

Ist doch ziemlich einfach. ... Wenn der User Offline geht addierste die kompletten Kosten der aktuellen Onlinesession auf den letzen Monatswert drauf.

Gruß Hagen

Ja, aber ich möchte, dass die Kosten jede Minute aktualisiert werden und nicht nur wenn der user off geht

ich hab s jetzt so gemacht, aber ob das so gut is? :

Delphi-Quellcode:

//Zeit- und Kostenberechnung
Onlinezeit := now - Startzeit;

//Heute
Label9.Caption := TimeToStr(Tageszeit + Onlinezeit);
//Monat
Label11.Caption := TimeToStr(Monatszeit + Onlinezeit);
//Jetzt
Label13.Caption := TimeToStr(Onlinezeit);

if copy(Label13.caption,7,2) = '00' then  //wenn 'ne neue minute beginnt
begin
 Label15.caption := FloatToStr(StrToFloat(Label15.caption) + StrToFloat(Satz) / 100);
 Label8.caption := FloatToStr(StrToFloat(Label8.caption) + StrToFloat(Satz) / 100);
 Label7.caption := FloatToStr(StrToFloat(Label7.caption) + StrToFloat(Satz) / 100);
end;

MfG Lefko.

[edit=Daniel B]Delphi-Tags korrigiert. Mfg, Daniel B[/edit]