🚀 go-pugleaf

Los arrays en VB6 funcionan de otra manera, aparte que parten de 0.
Esto vale:
dim array(x,n) (donde x = filas, n = columnas)
por ejemplo Dim array(2,2), quedar�a as�
0,0       0,1      0,2
1,0       1,1     1,2
2,0       2,1      2,2

Para arrays unidimensionales ( Dim array(5) basta un for/next
para ir llenando los elementos.
Se necesitan tantos for/next como sea la cantidad de columnas -1

Procesas as� para for/next de llenado, vale para unidimensi�n
Si no sabes cuantos elementos van a ir, haces los siguiente
for x = 0 to ubound(array()) -1 (si no llenaste el �ltimo)
'Code... vas llenado para
    array(x) = dato
next
Si te quedas corto debes hacer Redim Preserve array(nueva dimensi�n)
antes del siguiente traspaso de datos
Es un poco fregado pero paciencia...
Espero te sirva
Saludos



"2004" <juanpacs@gmail.com> escribi� en el mensaje 
news:1cea6b8a.0410251236.754e6fec@posting.google.com...
> Hola...ese es mi problema:
>
> quiero hacer esto:
>
> Sub ejemplo()
> tasa = 0.15
> matriz = Range("c10:i10")
> n = Range("c10:i10").Columns.Count
> For i = 1 To n
> suma = suma + matriz(1, i) / (1 + tasa) ^ i
> Next i
> Range("a1").Value = suma
> End Sub
>
> pero como una funcion, trate lo siguiente pero no me resulto:
>
> Function VAN(tasa, rango)
> matriz = Range(rango)
> n = Range(rango).Columns.Count
> For i = 1 To n
> suma = suma + matriz(1, i) / (1 + tasa) ^ i
> Next i
> suma = tasa + matriz(1, 1)
> VAN = suma
> End Function
>
> que estoy haciendo mal??? como lo arreglo???
>
> pd: es la funcion para calcular el VAN (se que excel la trae
> incorporada, pero la hice solo para probar...para futuras otras
> aplicaciones).