PDA

Visualizza la versione completa : Ora (VB)


xit
19-07-2002, 11:44
All'apertura del mio form avrei bisogno di avere 2 orologi in 2 text o in 2 label.
Corrispondono a data inizio e data fine.
Esempio apro il form data inizio e data fine sono uguali segnano tutti e due le 12:00
Dopo un pò con un bottone blocco data inizio sulle 12:05 data fine continua ad andare avanti
passa altro tempo termina quello che dovevo fare blocco data fine sulle 13:00.
Quindi avrò 2 valori data inizio 12:05 e data fine 13:00.
Cosa devo fare?

ladyBlu
19-07-2002, 11:45
scusa xit per fare che? che ci devi fare con le 12.05 e le 13.00?
:confused: :confused: :confused:

xit
19-07-2002, 11:49
Questi dati quando premo il bottone salva del mio form vanno nel
mio database nei campi rispettivamente datainizio e datafine,
questo mi serve perchè devo registrare un tempo, in cui ho
bisogno di sapere l'inizio e la fine.

ladyBlu
19-07-2002, 11:52
e il tuo problema quindi qual è?
scusami sono un po' di coccio forse, ma non ho capito che problema hai. ;)

xit
19-07-2002, 11:54
é così che devo impostare il tutto?

Private Sub Timer1_Timer()
Label1.caption=Format(Now,"hh:mm:ss")
End Sub

JamesD
19-07-2002, 11:57
Non ti basta fare:

click su datainizio: lblinizio.caption = time

click su datafine: lblfine.caption = time

?!?

ladyBlu
19-07-2002, 11:57
é così che devo impostare il tutto?

Private Sub Timer1_Timer()
Label1.caption=Format(Now,"hh:mm:ss")
End Sub


si, così la prima label contiene l'ora di inizio.

xit
19-07-2002, 12:18
Private Sub Timer1_Timer()
Label1.caption=Format(Now,"hh:mm:ss")
End Sub

Io ho fatto così,come faccio a vedere l'ora che va avanti all'apertura del mio form cosa devo richiamare nel form load

xit
19-07-2002, 12:34
Private Sub Timer1_Timer()
Label1.caption=Format(Now,"hh:mm:ss")
End Sub

Nel Form_Load()
Label1.caption=Format(Now,"hh:mm:ss")
End Sub

Nel form load ho messo questo la label con i'ora si vede ma NON
VA AVANTI.

ladyBlu
19-07-2002, 12:39
prova così: imposta la proprietà "Interval" del timer a 1000 e poi scrivi


Private Sub Form_Load()
Timer1_Timer
End Sub

Private Sub Command1_Click()
Timer1_Timer
End Sub

Private Sub Timer1_Timer()
Label1.Caption = Format(Now, "HH.MM.SS")
End Sub


prova e fammi sapere come va.

Loading