brandy2011
-
Gesamte Inhalte
1 -
Benutzer seit
-
Letzter Besuch
Schicke uns eine Nachricht!
Fachinformatiker.de ist die größte IT-Community
rund um Ausbildung, Job, Weiterbildung für IT-Fachkräfte.
[Delphi]: stringgrid problem
in Delphi/RPG+CL/Sonstige
Geschrieben
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 €.