Ver Mensaje Individual
  #8 (permalink)  
Antiguo 19/05/2006, 15:34
Avatar de darkhack
darkhack
 
Fecha de Ingreso: marzo-2005
Mensajes: 654
Antigüedad: 12 años, 8 meses
Puntos: 3
Cita:
Iniciado por vbx3m
Código:
Private Sub Form_Load()
Label1.Caption = DateValue(Now)
Label2.Caption = TimeValue(Now)
Timer1.Interval = 1000
End Sub

Private Sub Timer1_Timer()
xseg = xseg + 1
Label2.Caption = TimeValue(Now)
End Sub
ESTO ES LO MISMO PERO MAS FACIL Y MAS CORTITO
COLOCA 2 LABELS EN DONDE QUIERES QUE APAREZCAN LA FECHA Y LA HORA
COLOCA UN TIMER CON UN INTERVALO DE 1000

Cita:
Private Sub Form_Load()
'muestra la fecha en el label
label1.caption= date
End sub

Private Sub Timer1_Timer()
'muestra la hora en el label y se actualiza cada segundo
label2.caption= Time(now)
End sub
Salu2
__________________
Dios solo nos dio el 0 y el 1 pero con eso hemos hecho maravillas
1er dia te espantas, 2° te desesperas,3° buscas ayuda y 4°....Adios