For i = col To contar
txt = Cells(fil, i).Value
aaaa = Right(txt, 4)
m = Mid(txt, 1, Len(txt) - 4)
If m = "Enero" Then
mm = 1
End If
If m = "Febrero" Then
mm = 2
End If
If m = "Marzo" Then
mm = 3
End If
If m = "Abril" Then
m = 4
End If
If m = "Mayo" Then
mm = 5
End If
If m = "Junio" Then
mm = 6
End If
If m = "Julio" Then
mm = 7
End If
If m = "Agosto" Then
mm = 8
End If
If m = "Septiembre" Then
mm = 9
End If
If m = "Octubre" Then
mm = 10
End If
If m = "Noviembre" Then
mm = 11
End If
If m = "Diciembre" Then
mm = 12
End If
fecha = DateSerial(aaaa, mm, dd)
Cells(fil, i) = fecha
Next[/CODE]
Cuando recibo los resultados las fechas no me salen como 01/01/2000 sino como un entero, y no logro encontrar por qué.
Y por otro lado quisiera saber si me puedo ahorrar todos esos ifs anidados acomodándolos en un arreglo, y cómo le haría.
Es mi primer tema por lo que no sé qué tan rapido contesten, aun así, gracias,
Featured Replies
Archivado
Este tema está ahora archivado y está cerrado a más respuestas.
Tengo la siguiente parte de un codigo,
Cuando recibo los resultados las fechas no me salen como 01/01/2000 sino como un entero, y no logro encontrar por qué.
Y por otro lado quisiera saber si me puedo ahorrar todos esos ifs anidados acomodándolos en un arreglo, y cómo le haría.
Es mi primer tema por lo que no sé qué tan rapido contesten, aun así, gracias,