Guten Abend Zusammen
Habe gerade ein Problemchen. Darin geht es um einen Fahrzeugkostenrechner in dem ich die Abschreibung berechnen soll. Alles gut soweit. Nun soll ich aber bei 4 Jahren und mehr immer 7% abschreiben. Kann mir jemand sagen wie ich diese Berechnung in eine Schleife packe?
Habe gerade ein Problemchen. Darin geht es um einen Fahrzeugkostenrechner in dem ich die Abschreibung berechnen soll. Alles gut soweit. Nun soll ich aber bei 4 Jahren und mehr immer 7% abschreiben. Kann mir jemand sagen wie ich diese Berechnung in eine Schleife packe?
Quellcode
-
- Dim Inverkehr As Double
- Dim firstYear As Double
- Dim SecondYear As Double
- Dim ThirdYear As Double
- Dim AllYears As Double
- Dim aktWert As Double
- Dim BJahr As Integer
- Dim CJahr As Integer
- Dim AJahr As Integer
- Dim EJahr As Integer
- Dim AktWertT As String
- Dim AktWertBT As String
- EJahr = CDbl(TextBox17.Value)
- BJahr = CDbl(TextBox5.Value)
- CJahr = Year(Now)
- AJahr = CJahr - BJahr + EJahr
- If AJahr = "4" Then
- Inverkehr = TextBox6.Value
- firstYear = Inverkehr / 5
- aktWert = Inverkehr - firstYear
- SecondYear = ((aktWert / 100) * 15)
- aktWert = aktWert - SecondYear
- ThirdYear = ((aktWert / 100) * 10)
- aktWert = aktWert - ThirdYear
- AllYears = ((aktWert / 100) * 7)
- aktWert = aktWert - AllYears
- End If