Fecha y hora

Brenda
09 de Junio del 2006
Cómo puedo guardar la fecha y la hora del sistema en variables, alguien sabe??
gracias..

acemel
09 de Junio del 2006
'configurando el timer1 con la propiedad interval=1000
'con esta subrutina ves la hora cada segundo en el elemento Hora (normalmente un label)

'declarar fecha como string o variant. Lo mas correcto es variant, que es el valor que te devuelve

Private Sub Timer1_Timer()
Fecha = Now
Hora.Caption = Fecha
End Sub

'para guardarla hora en una variable simplemente sería con la instruccion

Fecha = Now

'para separar el dia, el mes, el año, la hora, los minutos
dia=day(fecha)
mes=month(fecha)
año=year(fecha)
minutos=minute(fecha)
hora=hour(fecha)