[VB6] Data ed ora di sistema

[gionet]

Come faccio a visualizzare in una form l'ora e la data, compresa di conteggio secondi

[kalosjo]

Metti un timer e una label:

supponiamo label1

il timer lo metti con interval 1000

evento timer del timer

Private Sub Timer1_Timer()
  label1.caption=format(hour(now),"00") & ":" & format(minute(now),"00") & ":" & format(second(now),"00")
End Sub

[gionet]

ottimo Grazie

[tossam]

scusate l'intromissione
label1.caption = time
l'effetto è uguale (tranne che è diviso in questo modo hh.mm.ss invece che hh:mm:ss), ma il codice è un po' più corto...
ciao!

[kalosjo]

Originariamente inviato da tossam
scusate l'intromissione
label1.caption = time
l'effetto è uguale (tranne che è diviso in questo modo hh.mm.ss invece che hh:mm:ss), ma il codice è un po' più corto...
ciao!

Lo formatta a due cifre?

[MdE2005]

Si..quando scrivi:

MsgBox Time

ti viene restituito "HH.MM.SS."..se poi al posto del punto gionet vuole un altro carattere basta usare la funzione Replace:

MsgBox Replace(Time, ".", "#", 1, -1, vbTextCompare)

Ciao..