Hallo PSP_GIGA
Hier eine Schleife zum Setzen des Restwertes der Anschaffung in ein Stringgrid:
procedure TForm1.Button1Click(Sender: TObject);
var
betrag, wert, satz, berechnung :real;
i, dauer : integer;
begin
// Dauer = Abschreibung in Jahren
dauer := StrToInt (edt_dauer.Text);
// Wert = Anschaffungspreis
wert := StrToFloat (edt_preis.Text);
// Betrag = jährlicher Abschreibungsbetrag
betrag := wert /dauer;
StringGrid1.RowCount:=dauer+1;
for i:=1 to dauer do
begin
StringGrid1.Cells[0,i]:= IntToStr(i);
StringGrid1.Cells[1,i]:= FloatToStrF(betrag,ffFixed,10,2);
// Restwert
StringGrid1.Cells[2,i]:= FloatToStrF((wert - (betrag * i )),ffFixed,10,2);
end;
end;
Man nimmt den Bemessungswert des Gutes und teilt diesen durch die Nutzungsdauer. Schon erhält man den Abschreibungsbetrag, mit welchem man Jahr für Jahr abschreibt. Dabei ist zu beachten, dass jedes Jahr immer der selbe Abschreibungsbetrag vom Restwert des Gutes abgeschrieben wird. Am Ende der Nutzungsdauer hat das Gut dann einen Wert von 0 €.
