Hora actualizada
Mira tengo esta codificación:
Private Sub UserForm_Initialize()
Label5.Caption = Format(Now, "dd/mm/yyyy")
Label6.Caption = Format(Time, "hh:mm:ss am/pm")
End Sub
Con la Fecha cañón no hay problema, pero dime es posible algún código para que la hora aparezca en tiempo real, ¿osea qué siga corriendo mientras tengo abierto el userform?
Private Sub UserForm_Initialize()
Label5.Caption = Format(Now, "dd/mm/yyyy")
Label6.Caption = Format(Time, "hh:mm:ss am/pm")
End Sub
Con la Fecha cañón no hay problema, pero dime es posible algún código para que la hora aparezca en tiempo real, ¿osea qué siga corriendo mientras tengo abierto el userform?
1 respuesta
Respuesta
Revisate el evento Application. OnTime que te dará esto pero la verdad que no se si te agrega demasiado valor (tu decide)