Convertir nombre en "hh:mm:ss"

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

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

c'est clair, faut reflechir un peu :)

rep = Format(DateAdd("s", Valeur, 0), "hh:mm:ss")

++

BasicInstinct

 Bonjour,
je suis ravi de voir a quel point certain sont prêt a aider les novices.
Je pensais que l'intérêt principal de ce forum étais d'aider et non de juger.

Merci quand même.

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

excuse nous tchouk si tu l'as mal pris
Mais comme l'a souligné BasicInstinct le :p est un smiley msn qui tire la langue
et comme tu l'as souligné le forum est là pour aider les novices sans avoir de prejugé

voilà
aller, Bon courrage pour la suite

a+
VBSorcier

Sana rancune et bonne soirée.
Thouck

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

//// 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