Como puedo aregar la fecha y la hora a mi programa

[renga73]

Queria saber si hay algun comando para visualizar, en lo posible abajo a la izquiera, la fecha y hora actual. Probe con time pero pone la hora y no la va actualizando

[victoryiyo]

tienes que agregar un datetime picker al form y enel programa ponerle a true
Para la fecha y la hora
Me.lblFecha.Text = Date.Today
Me.lblHora.Text = Date.Now.ToShortTimeString

[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

[GeoAvila]

Iniciado por victoryiyo

tienes que agregar un datetime picker al form y enel programa ponerle a true
Para la fecha y la hora
Me.lblFecha.Text = Date.Today
Me.lblHora.Text = Date.Now.ToShortTimeString

Como observación este código es funcional para Vb.NET.

nos vemos..

[renga73]

Me pueden explicar mejor q es eso de "datetime picker", y en donde colo los Me.

[vbx3m]

En VB se llama DTPicker... Y sirve para seleccionar con mas facilidad la fecha... y los Me no son necesarios (en este caso) ya que puedes hacer referencia directa a los controles que estan en tu formulario...

[aldo1982]

google "mostrar fecha en VB"

[darkhack]

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

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

[Developer9]

Wait!!!

Para mostrar la hora y fecha lo que yo hago es ponerle un status bar al formulario y a uno de los panelitos ponerle de tipo fecha y otro de tipo hora. Y se muestra el reloj del sistema y la fecha actual respectivamente

[vbx3m]

Iniciado por darkhack

label2.caption= Time(now)

O usas Time O TimeValue(Now)

Iniciado por Developer9

Para mostrar la hora y fecha lo que yo hago es ponerle un status bar al formulario y a uno de los panelitos ponerle de tipo fecha y otro de tipo hora. Y se muestra el reloj del sistema y la fecha actual respectivamente

Puedes usar la opcion tal como dijo Developer9 para colocar la hora y fecha en ese sitio pero igual tendras q hacer el codigo para la asignacion y el contador...

[darkhack]

Time(now) y funciona

[jericosoft]

en VB6

Coloca en tu form un control Timer ( timer1 )

y un control Label ( Label1 )




Private Sub Form_Load()
Timer1.Interval = 1000
End Sub

Private Sub Timer1_Timer()
Label1.Caption = Date & Time
End Sub




Espero te sirva