Hi folks,
ich habe hier einen Timer, der von null beginnend, die Zeit
hochzählen sollen.
Die Sekunden laufen richtig und addieren auch die minuten.
Nur die Minuten gehen über die 60 hinaus:
Delphi-Quellcode:
procedure TAuszahlbuch.bil_ti1Timer(Sender: TObject);
var
std,min,sek: String;
entg1,geld: Double;
begin
geld:=4.10;
bil_zeit1:=bil_zeit1+1;
std:=Format('%.2d',[bil_zeit1 div 3600]);
min:=Format('%.2d',[bil_zeit1 div 60]);
sek:=Format('%.2d',[bil_zeit1 mod 60]);
bilz1.Caption:=std+':'+min+':'+sek;
entg1:=(bil_zeit1/3600)*geld;
bilp1.Caption:=FloatToStr(geldrunden(entg1,2));
end;
Hat jemand einen Rat?
Grüße