AccueilCodesTutorielsForumsEmploiLivresConnexion

  • Visual Basic, VB6, VB.NET, VB 2005, VB CodeS-SourceS
  • RSS CodeS-SourceS
  • CodyxBot, le Bot GTalk & MSN qu'il vous faut !
  • Générez des revenus avec vos codes, scripts et tutoriaux
  • Aide à la navigation du site
begin process at 2008 10 11 05:46:13
Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

CONVERSION D'UN TEMPS EN SECONDES AU FORMAT HH:MM:SS


Information sur la source

Catégorie :Date & Heure Classé sous : conversion, temps Niveau : Débutant Date de création : 14/04/2001 Date de mise à jour : 05/06/2001 00:00:00 Vu : 8 076
Auteur : lbs Site perso
Ecrire un message privé
Note :
7,4 / 10 - par 5 personnes
7,40 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
Commentaire sur cette source (3)
Ajouter un commentaire et/ou une note

Description

Ce code est une version largement plus facile à comprendre et plus court que celui CodeCodeCodac ;-)
Attention, le nombre de secondes doit être inférieur à 86400 (=1 jour) et ne doit pas être décimal(pas de virgule).
De plus, le nombre de secondes pris en compte dans une journée est 86400 et pas 86459,178082191...(jour naturel).
 

Source

  • Dim TempsTotal as long 'TempsTotal est le temps en secondes
  • Dim Heures as Integer
  • Dim Minutes as Integer
  • Dim Secondes as Integer
  • Sub Conversion(TempsTotal)
  • Heures = Int(TempsTotal / 3600)
  • Minutes = Int((TempsTotal - 3600 * Heure) / 60)
  • Secondes = TempsTotal - 3600 * Heures - 60 * Minutes
  • Msgbox (Format(Str(Heures + ":" + Minutes + ":" + Secondes))) 'là, on a le temps formaté hh:mm:ss
  • 'Format sert à afficher 2 chiffres pour les heures, les minutes et les secondes
  • 'Exemple: avec Format: 08:05:23
  • ' sans Format: 8:5:23
  • End Sub
  • 'La même formule en une seule ligne (pas la peine de déclarer les variables Heures, Minutes et Secondes):
  • 'MsgBox (Format(Str(Int(TempsTotal / 3600)) + ":" + Str(Int((TempsTotal - 3600 * (Int(TempsTotal / 3600))) / 60)) + ":" + Str(TempsTotal - 3600 * (Int(TempsTotal / 3600)) - 60 * (Int((TempsTotal - 3600 * (Int(TempsTotal / 3600))) / 60))), "ttttt")) 
Dim TempsTotal as long     'TempsTotal est le temps en secondes
Dim Heures as Integer
Dim Minutes as Integer
Dim Secondes as Integer

Sub Conversion(TempsTotal)
	Heures = Int(TempsTotal / 3600)
	Minutes = Int((TempsTotal - 3600 * Heure) / 60)
	Secondes = TempsTotal - 3600 * Heures - 60 * Minutes
	Msgbox (Format(Str(Heures + ":" + Minutes + ":" + Secondes))) 'là, on a le temps formaté hh:mm:ss
	'Format sert à afficher 2 chiffres pour les heures, les minutes et les secondes
	'Exemple: avec Format: 08:05:23
	'         sans Format: 8:5:23
End Sub

'La même formule en une seule ligne (pas la peine de déclarer les variables Heures, Minutes et Secondes):
'MsgBox (Format(Str(Int(TempsTotal / 3600)) + ":" + Str(Int((TempsTotal - 3600 * (Int(TempsTotal / 3600))) / 60)) + ":" + Str(TempsTotal - 3600 * (Int(TempsTotal / 3600)) - 60 * (Int((TempsTotal - 3600 * (Int(TempsTotal / 3600))) / 60))), "ttttt"))

Conclusion

Si ce code comportait des bugs, merci de me le signaler
 

Commentaires et avis

signaler à un administrateur
Commentaire de philpaul le 19/07/2005 12:22:24

si quelqu'un pourrai me donner le code pour faire l'inverse, passer
d'un temps minute:seconde pour avoir le total de seconde d'une manière aussi simple que celle là, ç'a m'aiderai

ps: je suis un néophyte

signaler à un administrateur
Commentaire de Proger le 29/11/2007 23:55:42

L'inverse, pour Philpaul...
Dim Buf() As String
Dim s As Long
Buf = Split(tempsHMS$,":")
s = CLng(Buf(0)*3600 + CLng(Buf(1))*60 + CLng(Buf(2))

signaler à un administrateur
Commentaire de Renfield le 30/11/2007 09:00:30 administrateur CS

'lut Proger.

sans importance ici, certes, juste qu'il vaudrait mieux utiliser, je pense Val() que CLng()

Dans l'absolu, hein, pas dans ce cas précis... la cause ? Clng se base sur les parametres regionnaux, donc doit être, je pense plus long...

Ajouter un commentaire

Discussions en rapport avec ce code source dans le forum

conversion minute en seconde [ par philpaul ] je suis débutant sur access 2003 et j'aimerai savoir comment convertir des minutes/secondes, en secondes et comment rentrer le temps minutes/seco Conversion d'un temps (access et vba) [ par stephG01 ] Lutje cherche a convertir un temps du type 00:15:00 en decimal . c'est pour un calcul de cout.ex: cout = 15.24 * (00:15:00 )    &n Mon ordinateur plante [ par Marnilla ] Salut à vous,J'écris sur ce forum car je vois que vous savez beaucoup choses.Mon ordinateur n'arrete pas de planter. Qd je joue à un je chargement d'une image après un certains temps [ par alexgr ] Salut a toutes et a tous, je voudrais savoir si il est possible de pouvoir charger une image toute les 30 secondes dans le même clip, je m'exp charger des images différentes après un temps précis [ par alexgr ] Salut a toute et a tous, je voudrais savoir si il est possible de charger une image jpg différente toutes les 30 secondes dans un clip? je m'expl Temps d'une instruction [ par kalagane1 ] Bonjour à tous,Auriez vous l'aimable gentillesse de me renseigner sur le temps d'exécution des instructions VB.Je m'explique j'ai deux instr choix de programme??? [ par marsupio ] Bonjour, et excusez par avance mon manque de connaissances: je suis novice en VB. Je vais, de plus, tacher de faire court....Je dois préparer un Conversion format DATE mySQL vers CFM [ par xenlo ] Bon[jour/soir], Voila je voudrai convertire une date récupérée par SELECT dans ma base MySQL. Parce que quand je l'affiche simplement Session Windows démarrée depuis ... [ par jack ] SalutQqun connaitrait-il le moyen de connaitre le temps depuis lequel la session windows à démarré ?(différent du temps de fo conversion d'un réel inférieur à 1 en base 2 [ par spizzou ] " Une source émet   n   symboles S1, S2, ... , Sn avec les probabilitées respectives P1, P2, ... , Pn classées dans


Nos sponsors

Sondage...

CalendriCode

Octobre 2008
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
2728293031  

Consulter la suite du CalendriCode

Téléchargements

Logiciels à télécharger sur le même thème :


Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel BAÏSE, Merci à Vincent pour ses précieux conseils
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés
Temps d'éxécution de la page : 0,250 sec

Google Coop CodeS-SourceS Google Coop CodeS-SourceS


Certaines images présentes sur le site (notament certains avatars) sont issues des collections IconShock, donc si vous souhaitez utiliser ces icons vous devez les acheter, ne les copiez pas et ne utilisez pas dans vos sites et applications sans les avoir commandé.