Convertir des secondes en heures et vice versa

Soyez le premier à donner votre avis sur cette source.

Snippet vu 26 812 fois - Téléchargée 58 fois

Contenu du snippet

Voici 2 fonctions simples permettant de transformer des secondes en heures et des heures en secondes

Source / Exemple :


'pour passer des heures aux secondes
Public Function heuresec(heure As String) As String 
sec = Val(DatePart("h", heure)) * 3600 + Val(DatePart("n", heure)) * 60 + Val(DatePart("s", heure))
heuresec = Str(sec)
End Function

'pour passer des secondes aux heures
Public Function secheure(sec As Variant) As String 
secheure = Str(sec \ 3600) + ":" + Str((sec - (sec \ 3600) * 3600) \ 60) + ":" + Str(sec - ((sec \ 3600) * 3600) - ((sec - (sec \ 3600) * 3600) \ 60) * 60)
End Function

A voir également

Ajouter un commentaire

Commentaires

Messages postés
473
Date d'inscription
mercredi 7 août 2002
Statut
Membre
Dernière intervention
10 juin 2015

Pour l'optimisation :

Public Function heuresec(heure As Date) As Long
... 'remplace val par clng
End function

Public Function SecHeure(sec) as date
SecHeure = TimeSerial(0,0,sec)
End function
Messages postés
13
Date d'inscription
dimanche 23 février 2003
Statut
Membre
Dernière intervention
13 mars 2008

c extra c exactement ce ke je cherchais !!! 10/10
Cette fonction n'a pas été copiée et j'aimerais savoir comment l'optimisée
Ta source est pas du tout optimisée et ressemble fortement à celle de CodeCodeCodac (copiage ?)

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.