Convertir nombre en "hh:mm:ss"

Question

Bonjour,
je voudrais convertir un nombre (seconde) en  "hh:mm:ss"
Merci d'avance

VBSorcier · Answer

Function FormatTime(ByVal seconds As Long) As String
    sec = seconds - Int(seconds / 60) * 60
    Min = Int(seconds / 60) - Int((Int(seconds / 3600))) * 60
    hr = Int((Int(seconds / 3600)))
    FormatTime = hr & ":" & Format(Min, "00") & ":" & Format(sec, "00")
End Function

voila
suffit de reflechir un peu :p

VBSorcier

BasicInstinct · Answer

c'est clair, faut reflechir un peu :)

rep = Format(DateAdd("s", Valeur, 0), "hh:mm:ss")

++

 BasicInstinct

tchouck · Answer

Bonjour,
je suis ravi de voir a quel point certain sont pr&#234;t a aider les novices.
Je pensais que l'int&#233;r&#234;t principal de ce forum &#233;tais d'aider et non de juger.

Merci quand m&#234;me.

BasicInstinct · Answer

Il ne faut pas se vexer, perso c'etait juste du second degre en plus d'une deuxieme facon de resoudre ton probleme.

Je pense que pour VBSorcier, c'etait aussi du second degre ( :p correspondant a un smiley "grand sourire").

Bon dev

 BasicInstinct

VBSorcier · Answer

excuse nous tchouk si tu l'as mal pris
Mais comme l'a soulign&#233; BasicInstinct le :p est un smiley msn qui tire la langue
et comme tu l'as soulign&#233; le forum est l&#224; pour aider les novices sans avoir de prejug&#233;

voil&#224;
aller, Bon courrage pour la suite

a+
VBSorcier

tchouck · Answer

Sana rancune et bonne soir&#233;e.
Thouck

amezghal · Answer

private function Time(T as integer)as string
h=int(t/3600)
t=t-(h*3600)
m=int(h/60)
s=t-(m*60)
Time = h & " H " & m & " Min " & s & " S "
end function 
-------------------------------------------
ainsi pour integrer J(nombres de jours) remarqué que 1 jrs= (3600*24)second

amezghal · Answer

//// je m'excecuse pour les ereurs//////////////
------------------------------------------------
private function Time(t as integer)as string
h=int(t/3600)
t=t-(h*3600)
m=int(t/60)
s=t-(m*60)
Time = h & " H " & m & " Min " & s & " S "
end function 
-------------------------------------------
ainsi pour integrer J(nombres de jours) remarqué que 1 jrs= (3600*24)second