begin process at 2012 02 12 11:07:53
  Trouver un code source :
 
dans
 
[ Dernières recherches ]
Accueil > 

Code

 > 

Date & Heure

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

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


 Information sur la source

Note :
7,4 / 10 - par 5 personnes
7,40 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
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 :10 414
Auteur : lbs

Ecrire un message privé
Site perso
Commentaire sur cette source (4)
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


 Sources du même auteur

Source avec Zip Source avec une capture COURS SUR LES BOÎTES DE DIALOGUES STANDARDS
Source avec Zip Source avec une capture VISUAL ALARME
TROUVER SI UN NOMBRE EST UN MULTIPLE D'UN AUTRE
Source avec Zip Source avec une capture CONVERTISSEUR DE CODES COULEUR DÉCIMAL - HEXADÉCIMAL - RGB
CONVERSION BASE 10 <====> BASE 256 (CODE ASCII)
Toutes les sources de lbs

 Sources de la même categorie

Source avec Zip Source avec une capture LES FONCTIONS DATE PAR L'EXEMPLE. par pasquet78
Source avec Zip Source avec une capture CALENDRIER, MODE D'EMPLOI par pasquet78
Source avec Zip Source avec une capture Source .NET (Dotnet) HORLOGE DIODE AVEC 3 ALARMES ET REMISE À L'HEURE par EhJoe
Source avec Zip Source avec une capture POINTEUSE HORAIRES PAR SEMAINE par VBNoob13
Source avec Zip Source avec une capture HORLOGE À AIGUILLES SIMPLEMENT DANS UN USERFORM EXCEL par bigbe
Toutes les sources de la catégorie Date & Heure

 Sources en rapport avec celle ci

Source avec Zip Source avec une capture CONVERTISSEUR HEXAVIGÉSIMAL par shaeks
Source avec Zip Source avec une capture CONVERTIR DU TEXTE RTF EN CODE HTML ET VICE-VERSA par vicosta
Source avec Zip Source .NET (Dotnet) CONVERSION DE DEVISE MONAITAIRE VIA UN SERVICE WEB par bigmonkey7
Source avec Zip Source .NET (Dotnet) CONVERTIR UN CHIFFRE EN LETTRE par badis1043
Source avec Zip Source avec une capture TRADUCTEUR VB6.VBP EN VB5.VBP par joro

Commentaires et avis

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

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

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

Commentaire de eric57920 le 14/02/2009 21:39:16

Merci Proger,

Il manque une ) à la fin de la ligne, mais ca marche super
comme cela ca fonctionne super

Dim Buf() As String
Dim s As Long
Buf = Split(tempsHMS$,":")
s = CLng(Buf(0)*3600 + CLng(Buf(1))*60 + CLng(Buf(2)))

 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

Février 2012
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
272829    

Consulter la suite du CalendriCode

Photothèque

Photo Green Energy Solutions With Light Bulb Morphed Into LandscapePhoto Happy Bright Landscape WIth Butterflies
Photo Tropical Location With Palm Tree and Woman Holding Umbrella 

Visiter la photothèque
 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), 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

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 5,257 sec (3)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales
Outils Convertisseur VB/C# Snippets et scripts Outils en ligne La ToolBox
Communauté Programmation Photographie Technologie Newsgroups Emploi Forum Blogs
Guide d'achat Téléphonie mobile Image et son Informatique Bureautique Jeux vidéo
Logiciels Internet & Réseau Développement Market Android Jeux & Loisirs Graphisme Multimédia Sécurité Pilotes
Loisirs Cartes virtuelles Vidéos droles Jeux en ligne Géoguide AndroLib (Android Market)