Fecha automatica

[ariesagv]

Hola a todos

una pregunta como le puedo hacer para que en mi sistema que estoy haciendo me ponga la fecha automaitcamente del sistema operativo de la computadora.
lo que pasa que lo habia puesto con un tipo calendario, pero no quiero que el usuario la ponga si no que sea con el sistema.

[Kruzado]

por ejemplo

label1.caption=format(date,"dd/mm/yyyy")

[rubencho5413]

Private Sub Timer1_Timer()
fecha = Date
hora = Time
Label2 = fecha
Label3 = hora
End Sub

PONGALE INTERVALOS DE 80 AL TIMER PARA QUE SE VEAN LOS SEGUNDOS DE LA HORA

[evilesq]

Iniciado por ariesagv

Hola a todos

una pregunta como le puedo hacer para que en mi sistema que estoy haciendo me ponga la fecha automaitcamente del sistema operativo de la computadora.
lo que pasa que lo habia puesto con un tipo calendario, pero no quiero que el usuario la ponga si no que sea con el sistema.

alguien me puede explicar como obtner la hora del sistema lo que pasa es que estoy haciendo una tarea de en la cual necesito saber el tiempo de ejecucion de mi algoritmo, pero no se como hacerlo??

[SalomonSab]

tienes que usar el mismo ejemplo que te puso Kruzado solo que en vez de Date usa el Time

Código:

TuTextBox.Text = Format(Time, "h:mm:ss AMPM")

espero te Sirva.

[ariesagv]

Iniciado por rubencho5413

private sub timer1_timer()
fecha = date
hora = time
label2 = fecha
label3 = hora
end sub

pongale intervalos de 80 al timer para que se vean los segundos de la hora

hola
gracias, ya me salio

[Pablo Cesar]

facil
si trbajas con vb
crea un label
y en el load de tu formulario lo siguiente
pon Me.lblfecha.Text = Now.Date
y listo

[evilesq]

tengo el mismo problema que el, yo lo estoy haciendo de esta manera pero no me muestra la fecha en los label :S alguna idea de como solucionarlo lo estoy haciendo en vb 2005 gracias

Dim fecha As Date
Dim hora As Date

Label1.Text = fecha.Date
Label2.Text = hora.TimeOfDay.ToString

[Avellaneda]

Iniciado por evilesq

tengo el mismo problema que el, yo lo estoy haciendo de esta manera pero no me muestra la fecha en los label :S alguna idea de como solucionarlo lo estoy haciendo en vb 2005 gracias

Dim fecha As Date
Dim hora As Date

Label1.Text = fecha.Date
Label2.Text = hora.TimeOfDay.ToString

Si solamente quieres mostrar esos datos, no necesitas declarar ninguna variable:

Label1.Text = Date.Today
Label2.Text = TimeString

[chicho28]

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