🚀 go-pugleaf

"gluca" <help.progettomoda@virgilio.it> ha scritto nel messaggio
news:Gnpkc.169959$rM4.7024744@news4.tin.it...
> Salve a tutti,
> devo convertire i secondi restituiti con la funzione timer in un formato
> tipo hh:mm:ss, qualcuno sa come fare?
>
> ciao
>
>
>
>
la soluzione potrebbe essere realizzare la seguente sub:

Sub ConvertiOra(secondi As Double)
'**** la variabile secondi contiene il numero di sec. totali
Dim hh As Double: 'ore
Dim mm As Double: 'minuti
Dim ss As Double: 'secondi
hh = Int(secondi / 3600): 'un ora equivale a 3600 secondi
mm = Int((secondi - (hh * 3600)) / 60): 'un minuto � uguale a 60 secondi,
tolte le ore gi� calcolate
ss = secondi - (hh * 3600) - (mm * 60): ' la differenza di ore e secondi
rapresenta i secondi rimanenti
'********* visualizzazione della stringa formattata per HH:MM:SS
Form1.Label1.Caption = Format(hh, "00") & ":" & Format(mm, "00") & ":" &
Format(ss, "00")
End Sub

La sub sopra riportata v� richiamata con l'istruzione

Form1.ConvertiOra (NumSec)

dove NumSec rappresenta la variabile contenente il numero di secondi
calcolati fino a quel momento