Hola, tengo dos array, uno lo extraigo de la base de datos, el segundo, lo hago con los datos que extraje de esta, rellenando con 0 aquellos lugares en donde los valores de la variable auxiliar (i) del primer bucle y el valor del array no concuerde. El tema es que me funciona, pero el número 15 es como si no me lo detectara, y en lugar de rellenar con el número 15, me lo rellena con 0. En cambio, con el número 16 si cumple la función que estoy buscando. Les dejo el código para ver si ven algún error.
Código:
Dim arr_Days(31)
Dim arr_Values(1)
arr_Values(0) = 15
arr_Values(1) = 16
for i=1 to 31
for a=0 to UBound(arr_Values)
if i = arr_Values(a) then
arr_Days(i) = arr_Values(a)
else
arr_Days(i) = 0
end if
next
next
Cuando recorro el array "arr_Days", el resultado es esto:
00000000000000
016000000000000000
El 16 si me lo agrega al array, pero en el número 15 pareciera que no se ejecuta la primer parte del if. Lo raro es que si no hago lo de reemplazar por 0 en caso que no concuerden los valores, entonces si funciona.
Tienen alguna idea en donde puede estar el error?
Muchas gracias anticipadas.
Suerte!.