Macro resta una hora a hora actual
Hola expertos buen día,
Tengo lo siguiente:
ActiveCell = Time
Lo que hace esto es ponerme la hora actual de mi computadora en cierto campo de excel, lo que necesito es que se reste una hora a la hora actual por el horario de verano, es decir, que si ahorita son las 2:08 en la celda me aparezca 1:08.
Saludos y gracias de antemano por la pronta respuesta.
Tengo lo siguiente:
ActiveCell = Time
Lo que hace esto es ponerme la hora actual de mi computadora en cierto campo de excel, lo que necesito es que se reste una hora a la hora actual por el horario de verano, es decir, que si ahorita son las 2:08 en la celda me aparezca 1:08.
Saludos y gracias de antemano por la pronta respuesta.
1 Respuesta
Respuesta de calvuch
1
Prueba
Sub hora()
Dim h As Date
h = "01:00:00"
ActiveCell = Format(Time - h, "hh:mm:ss AM/PM")
End Sub
Sub hora()
Dim h As Date
h = "01:00:00"
ActiveCell = Format(Time - h, "hh:mm:ss AM/PM")
End Sub
