formattare numero in gg:hh:mm:ss

[8003130124464]

ciao a tutti
ho un numero ke rappresenta le ore....diciamo ke ho 3455,78907 ore

Come faccio a convertire 3455,78907 ore in formato gg:hh:mm:ss, dove
gg = giorni
hh = ore
mm = minuti
ss = secondi

.....si può fare ?

[Roby_72]

E' matematica... Un giorno quante ore ha? Le ore quanti minuti hanno?...

Roby

[8003130124464]

un giorno ha 24 ore ed un ora ha 60 minuti....

io xò ho 45678,3456 ore... come faccio ad ottenere GG.HH.MM.SS ?
Grazie

[littletoro]

dunque...io in matematica non sono un genio ma dovrebbe essere così

il totale delle ore già lo hai quindi


totale ore * 60 = totale dei minuti

totale dei minuti * 60 = totale dei secondi

totale ore / 24 = totale dei giorni

[8003130124464]

forse mi sono espresso male.
Io non intendevo sapere 3456 ore a quanti minuti corrispondono...
Partendo dal numero di ore volevo ottenere il valore HH:MM:SS
Cmq prendendo spunto da un pò di cose trovate un rete ho fatto questo...a me sembra ke funzioni....nel caso possa servire a qualcuno, posto il codice


Function SecondsToText(Seconds)
If Seconds <= 0 Or Not IsNumeric(Seconds) Then
SecondsToText = "00:00:00"
Exit Function
End If

Seconds = Fix(Seconds)

If Seconds >= 86400 Then
days = Fix(Seconds / 86400)
Else
days = 0
End If

If Seconds - (days * 86400) >= 3600 Then
hours = Fix((Seconds - (days * 86400)) / 3600)
Else
hours = 0
End If

If Seconds - (hours * 3600) - (days * 86400) >= 60 Then
minutes = Fix((Seconds - (hours * 3600) - (days * 86400)) / 60)
Else
minutes = 0
End If

Seconds = Seconds - (minutes * 60) - (hours * 3600) - (days * 86400)

If Seconds > 0 Then
Result = autoZero(Seconds)
else
Result = "00"
end if

If minutes > 0 Then
Result = autoZero(minutes) & ":" & Result
else
Result = "00:" & Result
End If

If hours > 0 Then
If days > 0 Then
hours = hours + (days*24)
End If

Result = autoZero(hours) & ":" & Result
else
Result = "00:" & Result
End If

SecondsToText = Result
End Function

function autoZero(testo)
if len(testo) = 1 then
autoZero = "0" & testo
else
autoZero = testo
end if
end function



passando in input il numero di secondi si ottiene la stringa di teso formattata in HH:MM:SS
Grazie cmq

[Roby_72]

E' quello che cercavo di dirti...

Roby

[santino83_11_04]

allora non avevi il numero di ore a disposizione, ma quello dei secondi...