hi
ich hab einen timer, und jede sekunde soll eine menge, die jede stunde um eine bestimmte menge steigt hochgezählt werden
ich wollte das so machen:
Delphi-Quellcode:
procedure TForm1.Timer2Timer(Sender: TObject);
var jetzt:TDatetime;
begin
jetzt:=now;
t_da:=t_da+round(t_prod/(jetzt-lasttime));
lasttime:=now;
end;
also, jetzt-lasttime is die zeit die seit dem letzten aufruf vergangen ist....
t_da soll die menge repräsentieren
die division:
t_prod ist die zunahme pro stunde *24 -> pro tag
geteilt durch
die verbrauchte zeit in tagen
aber die werte sind viel zu groß, wo ist der fehler?