Pregunta: ¿Es esto un fallo de Excel 2016?
Partimos de que hoy es día 4/mar/2021
Tengo en un VBA:
Dim Dia As Integer, Mes As Integer, Anio As Integer
Dim idx_row_min As Integer
Dia = Day(Now)
Mes = Month(Now)
Anio = Year(Now)
Paso a paso por las instrucciones el valor de Dia = 4, el de Mes = 3 y el de Año = 2021 como no podía ser de otra manera.
Continuamos paso a paso y tengo:
Fechas(idx_row) = Day & "/" & Month & "/" & Year
Fechas(idx.row) toma el siguiente valor 4/3/2021 como no podía ser de otra manera.
Pues bien, ahora pongo:
Fecha=Fechas(idx_row)
Range("P6").Activate
ActiveCell.Value = Fecha
Y en P6 se escribe: 3-abr.-21.
Es decir, cambia el mes por el día y el día por el mes.
Para verificar si mi procedimiento tiene algún error y después de un minucioso estudio del mismo he cambiado sólo estas tres líneas:
Dia = Day(Now) + 10
Mes = Month(Now) + 7
Anio = Year(Now)
Y queda: Día = 14, mes = 10, año = 2021 lo demás lo he dejado exactamente igual.
Pues bien, ahora en P6 escribe 14-Oct.-21.
En resumen:
Si mi procedimiento es este:
Dim Dia As Integer, Mes As Integer, Anio As Integer
Dim idx_row_min As Integer
Dia = Day(Now)
Mes = Month(Now)
Anio = Year(Now)
…
…
Fechas(idx_row) = Day & "/" & Month & "/" & Year
…
…
Fecha=Fechas(idx_row)
Range("P6").Activate
ActiveCell.Value = Fechas(idx_row_min)
P6 tiene el día cambiado por el mes y viceversa. (3-abr.-21) cuando correspondería (4-mar.-2021)
Ahora bien, si mi procedimiento es este otro:
Dim Dia As Integer, Mes As Integer, Anio As Integer
Dim idx_row_min As Integer
Dia = Day(Now) + 10
Mes = Month(Now) + 7
Anio = Year(Now)
…
…
Fechas(idx_row) = Day & "/" & Month & "/" & Year
…
…
Range("P6").Activate
ActiveCell.Value = Fecha
P6 tiene un valor correcto. (14-oct.-21).
Como prueba adicional he hecho lo siguiente:
He puesto en la celda A1 un número que representa al día (4) en la celda B1 otro número que representa al mes (3) y en C1 otro número que representa el año (2021)
y Dia, Mes y Año en mi procedimiento toman estos valores, con idéntico resultado:
Si pongo A1=4, B1=3 y C1=2021. Error en P6=3-abr.-2021.
Si pongo A1=21, B1=12, C1=2021 No hay error en P6=21-dic.-2021.
Increíble pero cierto. Y da exactamente igual que se cambie o no la configuración de fecha en P6.
Saludos
José
