Visual Basic - URGENTE SUMA DE AÑOS... CICLO FOR??

necesito hacer un ciclo que me calcule una depreciacion
osea

año = 5

la formula es la siguiente

año/ suma de años

si son 5 años


suma de años = 1+2+3+4+5= 15

DEPRECIACION= 1/15 + 2/15 +3/15+4/15+5/15

como hago esto? por medio de un for? y si es asi como hago para sacar la suma de años

ayudenme

fijate si esto sirve, agrega un listbox
saludos

Option Explicit
Dim i As Integer
Dim parcial As Integer
Dim final As Integer
Dim suma As Double

Private Sub Command1_Click()
parcial = 0
For i = 1 To 15
parcial = parcial + 1
final = final + parcial
If final <= 15 Then
suma = suma + Format(parcial / 15, "###0.00")
List1.AddItem parcial & Chr(9) & Format(parcial / 15, "###0.00")
End If
Next i
List1.AddItem " "
List1.AddItem "---------------------------"
List1.AddItem "total" & Chr(9) & Format(suma, "###0.00")
End Sub

chevere... gracias...

pero el problemaa.. q' el año= 15... fue un ejemplo.... yo necesito es sacar ese valor ....

porq ese valor de año... està dentro de una base de datos.. y no se cual es...

yo lo q' quiero hacer es sumar los años.....

como dije al principio

si año = 5 me sume =1+2+3+4+5

si años = 6 me sume 1+2+3+4+5+6
....... hasta n años.....


lo q necesito saber es como divido ese año y lo sumo...


porq el for es de i = 1 to n

no se si me explique bien......

Has probado declarando un boolean.

Dim flag as Boolean
Int con as Integer
Int sum as Integer

Do while (flag)
if (con <= numero_en_BD) then
sum = sum + con
else
flag = False
end if
Loop

De ahí divides tan solo el número de la BD con el sum.
Espero que te sirva

lo k te pusieron antes no se si lo abra provado pero no funca. os paso una funcion que si funca para sacar el numero de años como vos keres.

Private Function SumaAños(Años As Integer)
If Años = 1 Then ' ahi k poner esta condision si no vos dara error de pila insifisiente
SumaAños = 1
Else
SumaAños = SumaAños(Años - 1) + Años
End If
End Function

y para llamar a la funcion le ponès

Dim Años As Integer
Años = SumaAños(6) ' el seis es lo de la tabla, podès poner 4, 5, 7, 500..

me parece que lo que planteas es erróneo pues la depreciación siempre vale 1, fijate en que:

1/15+2/15+3/15+4/15+5/15=(1+2+3+4+5)/15=15/15=1

ya que el denominador es la suma de 1+2+3+4+5=15

¿me comprendes?, creo que debes tener un error en alguna parte del planteamiento.

saludos

no se a ken vos refers pero si es mi contestasion anterior solo tenes ke kopiarlo y ejecutarlo y veres k si funca. si es por eso el error lo tenes vos.
y no enttiendo de donde coyons abeis vos sacado esa formula k nadie puso si mirarais un poko mas el codigo lo comprederias pero kreo k ahi algunas cosas k no son para ignorantes,
saludos