begin process at 2012 02 16 09:57:26
  Trouver un code source :
 
dans
 
Accueil > 

Code

 > 

Date & Heure

 > METTRE DES SECONDES EN HEURES (4 LIGNES)

METTRE DES SECONDES EN HEURES (4 LIGNES)


 Information sur la source

Note :
8 / 10 - par 5 personnes
8,00 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
Catégorie :Date & Heure Classé sous :conversion, convertir, seconde, heure Niveau :Débutant Date de création :23/07/2000 Vu / téléchargé :11 204 / 558

Auteur : TomAmplius

Ecrire un message privé
Commentaire sur cette source (2)
Ajouter un commentaire et/ou une note

 Description

Transforme un Nombre de Seconde en Heure

Source

  • Dim Second_Temp As Byte
  • Dim Minute_Temp As Byte
  • Dim Heure_Temp As Long
  • Public Function SecondeEnHeure(ByVal Second As Long) As String
  • Heure_Temp = Int(Second / 3600)
  • Minute_Temp = Int((Second Mod 3600) / 60)
  • Second_Temp = Second Mod 3600 - Minute_Temp * 60
  • SecondeEnHeure = IIf(Heure_Temp < 10, Format(Heure_Temp, "0#"), LTrim(Str(Heure_Temp))) & ":" & Format(Minute_Temp, "0#") & ":" & Format(Second_Temp, "0#")
  • End Function
Dim Second_Temp As Byte
Dim Minute_Temp As Byte
Dim Heure_Temp As Long

Public Function SecondeEnHeure(ByVal Second As Long) As String
Heure_Temp = Int(Second / 3600)
Minute_Temp = Int((Second Mod 3600) / 60)
Second_Temp = Second Mod 3600 - Minute_Temp * 60
SecondeEnHeure = IIf(Heure_Temp < 10, Format(Heure_Temp, "0#"), LTrim(Str(Heure_Temp))) & ":" & Format(Minute_Temp, "0#") & ":" & Format(Second_Temp, "0#")
End Function 


 Fichier Zip

Les Membres Club peuvent télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

Télécharger le zip


 Sources du même auteur

AJOUTER UN ZÉRO DEVANT UN CHIFFRE
MINIMUM ET MAXIMUM
HORREUR DES ERREUR DE DIVISION PAR 0
Source avec Zip INSTRUCTION DELAY SANS GETTICKCOUNT NI OBJECT TIMER
Source avec Zip SAVOIR SI UN NOMBRE EST PREMIER !!!

 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

 Sources en rapport avec celle ci

Source avec Zip Source avec une capture CLM'S ASCII ART par clementio
Source avec Zip CONVERSION D'UNE SOMME EN LETTRES par AVI17
CONVERTIR DES SECONDES EN MINUTES, HEURES, JOURS par PaTaTe
CONVERTIR DES SECONDES EN HEURES ET VICE VERSA par Popi
CONVERSION DE SECONDE AU FORMAT HH:MM:SS par CodeCodeCodac

Commentaires et avis

Commentaire de manjik18 le 17/07/2003 15:30:23

Merci,
C'est simple, pratique et ca depanne

Commentaire de clubpsr le 18/06/2004 13:37:32

Voici exactement la même fonction mais un peu plus propre.
J'ai testé, elle retourne strictement la même chaîne.

Public Function SecondeEnHeure(ByVal Second As Long) As String
Heure_Temp = Int(Second / 3600)
Minute_Temp = Int((Second Mod 3600) / 60)
Second_Temp = Second Mod 60
SecondeEnHeure = Format(Heure_Temp, "0#") & ":" & Format(Minute_Temp, "0#") & ":" & Format(Second_Temp, "0#")
End Function

 Ajouter un commentaire


Discussions en rapport avec ce code source dans le forum

Convertir en seconde l'heure systeme ? [ par DDelec24 ] Cela fait peu de temps que je m'adonne au basic et j'orais une question.Comment-fait'on pour convertir l'heure systeme en secondes ????? :-)merci de v conversion milliseconde en heure minute seconde sous excel [ par maestrade ] conversion milliseconde en heure minute seconde sous excel Conversion d'une heures en VB6 [ par Lunikmarty ] Bonjour, J'ai développé une application VB6 qui utilise plusieurs classeurs Excel, je récupère dans un classeur d'une heure de début d'émission d'une Heure avec le Dixième de seconde [ par michaelaupaix ] Voila, pour un programme j'ai absolument besoin de connaître l'heure au dixième de seconde près. Sous dos pas de problème avec la commande time, mais Excel: conversion format (date) heure 00:00:00 en nombre [ par demoiselle1263 ] Bonjour: J'ai une soucis avec Excel. J'ai des données qui sont récupérées en fonction de la date et l'heure. J'ai donc une colonne qui me donne la d conversion base de données 2007 en access 2000 [ par elnico16 ] bonjour, j'ai une base de données que j'ai converti en access2007 qui etait sous 97 et que je dois reconvertir en version antérieure sous access2000 m Convertir heure UTC en heure GMT +1 VBA [ par pitipilot ] Bonjour, je récupère sur une base de données SQL Server des infos sur une supervision. Je dois ensuite traiter cette BDD sur Excel. Sauf que, problème conversion minute en seconde [ par philpaul ] je suis d&#233;butant sur access 2003 et j'aimerai savoir comment convertir des minutes/secondes, en secondes et comment rentrer le temps minutes/seco convertir chiffre en heure [ par scromania ] bonjour, voila dans une textbox j'ai le chiffre "8" je ne parviens pas à le convertir en "08:00" heure . J'ai essayer avec cdate toujours sans reponse Convertir date string où l'année est absente [ par smr78 ] Bonjour, Avec Vb.Net 2010, comment faire pour convertir en date un string où parfois l'année est absente?! J'ai fait les tests avec Cdate(string) ou D


Nos sponsors


Sondage...

CalendriCode

Février 2012
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
272829    

Consulter la suite du CalendriCode

 
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 : 0,764 sec (3)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales