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]