Subindice Fuera de intervalo. AYUDA !!!!
Publicado por Cristian (34 intervenciones) el 16/02/2013 17:01:08
Estimados colegas...
tengo el siguiente problema:
'ASIGNO UN VALOR
paso5_d2 = Format(paso5_d2, "##,##0.00")
Dim paso5_5_d2() As String
'SEPARO DECIMAL DEL ENTERO
If Val(paso5_d2) - Int(Val(paso5_d2)) <> 0 Then
paso5_5_d2 = Split(paso5_d2, ".")
Else
paso5_5_d2(1) = "0"
End If
hasta aca funciona el tema es que recorro mediante un bucle y si pasa que el primer valor extraído es un entero me da un error de fuera de intervalo, ahora si el el segundo en adelante entero no hay probelma...
Alguien sabe porque ???
Desde ya muchas gracias !!!!!
tengo el siguiente problema:
'ASIGNO UN VALOR
paso5_d2 = Format(paso5_d2, "##,##0.00")
Dim paso5_5_d2() As String
'SEPARO DECIMAL DEL ENTERO
If Val(paso5_d2) - Int(Val(paso5_d2)) <> 0 Then
paso5_5_d2 = Split(paso5_d2, ".")
Else
paso5_5_d2(1) = "0"
End If
hasta aca funciona el tema es que recorro mediante un bucle y si pasa que el primer valor extraído es un entero me da un error de fuera de intervalo, ahora si el el segundo en adelante entero no hay probelma...
Alguien sabe porque ???
Desde ya muchas gracias !!!!!
Valora esta pregunta
0