[VB6] Orologio

[Miroku]

Mi interesserebbe fare un piccolo programma con orologio col fuso orario di Tokyo(+8 rispetto a noi), come posso fare?

[Mabi]

Non è difficile. Puoi farlo con la DateAdd
Ti basta un timer e una label:

Private Sub Form_Load()
Timer1.Interval = 500
Timer1.Enabled = True
Label1.Caption = ""
End Sub

Private Sub Timer1_Timer()
Label1.Caption = CStr(DateAdd("h", 8, Now))
End Sub

[Miroku]

Grazie, funziona.
Potresti però spiegarmi cosa indicano i parametri di qst codice?

Label1.Caption = CStr(DateAdd("h", 8, Now))

Ora volevo mettere uno sfondo carino al form, un immagine, so che in VB.NET c'è proprio nelle caratteristiche vicino a Background Color solo che qui non c'è. Come fo?

[XVincentX]

Private Sub Form_Load()
Timer1.Interval = 500
Timer1.Enabled = True
Label1.Caption = ""
End Sub

Private Sub Timer1_Timer()
Label1.Caption = CStr(DateAdd("h", 8, Now))
End Sub

Al caricamento del form poni un timer attivo con aggiornamento ogni mezzo secondo.
Setti una caption vuota cosi nessuno la vede
La private sub timer1_timer sarebbe ogni volta che si aggiorna
la label1 sarà uguale a orario + 8 valori in + nel campo h, che sarebbe ora. Now vuol dire eseguilo subito ( credo)

[xegallo]

Originariamente inviato da XVincentX
Now vuol dire eseguilo subito ( credo)

now vuol dire adesso cioè data e ora correnti

[cidific]

Originariamente inviato da Miroku
Grazie, funziona.
Potresti però spiegarmi cosa indicano i parametri di qst codice?

Label1.Caption = CStr(DateAdd("h", 8, Now))

Fonte MSDN

[Miroku]

mmmh se volessi la data in un label e l'ora in un altro? Così sono troppo appiccicati :\

[Mabi]

Originariamente inviato da Miroku
mmmh se volessi la data in un label e l'ora in un altro? Così sono troppo appiccicati :\

Aggiunta la seconda Label (Label2)...

Private Sub Form_Load()
Timer1.Interval = 500
Timer1.Enabled = True
Label1.Caption = ""
Label2.Caption = ""
End Sub

Private Sub Timer1_Timer()
Label1.Caption = Format(DateAdd("h", 8#, Now), "h:m:s")
Label2.Caption = Format(DateAdd("h", 8#, Now), "dddd d mmmm yyyy")
End Sub

Originariamente inviato da xegallo
now vuol dire adesso cioè data e ora correnti

Esattamente. Altrimenti a cosa verrebbero aggiunte le 8 ore ?

[cassano]

veramente era una precisazione che lui aveva fatto ........

[Mabi]

Originariamente inviato da cassano
veramente era una precisazione che lui aveva fatto ........

...e la stessa cosa ho fatto io "completando" la risposta