21/11/2003, 02:44
|
| | | Fecha de Ingreso: noviembre-2003 Ubicación: Euskadi
Mensajes: 23
Antigüedad: 21 años, 5 meses Puntos: 0 | |
| Para la hora en un Label y La fecha en otro:
En el FormLoad meteis lo siguiente:
Timer1.Interval = 500
Timer1.Enabled = True
En el Timer1_timer:
If lblfecha.Caption <> CStr(Date) Then
lblfecha.Caption = Date
ElseIf lblreloj.Caption <> CStr(Time) Then
lblreloj.Caption = Time
End If |