codigos para el objeto time
sandro ken
29 de Enero del 2004
cuales son los codigos para el objeto time me muestre la hora actual del sistema
Bartolom
29 de Enero del 2004
Debes incluir un control timer en tu formulario, con las propiedades Interval=1000 y Enabled=True . Supongamos que el timer se llama Timer1 y la hora quieres mostrarla en una etiqueta llamada horaActual.
el código sería el siguiente:
Private Sub Timer1_Timer()
HoraActual.Caption = Format(Now, "HH:MM:SS, dddd dd - mmmm - yyyy")
End Sub
La última expresión dddd dd - mmmm - yyyy es opcional, es para que aparezca también la fecha.
Y por qué debe hacerse con un timer? Simplemente porque debe ocurrir que a cada evento del timer (cada 1 segundo) se muestre la hora actualizada, si no lo hicieras con timer, te quedaría la hora estática, hasta que refresques nuevamente el formulario.
Saludos!
el código sería el siguiente:
Private Sub Timer1_Timer()
HoraActual.Caption = Format(Now, "HH:MM:SS, dddd dd - mmmm - yyyy")
End Sub
La última expresión dddd dd - mmmm - yyyy es opcional, es para que aparezca también la fecha.
Y por qué debe hacerse con un timer? Simplemente porque debe ocurrir que a cada evento del timer (cada 1 segundo) se muestre la hora actualizada, si no lo hicieras con timer, te quedaría la hora estática, hasta que refresques nuevamente el formulario.
Saludos!