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 2009 01 08 04:49:17
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 !

METTRE DES SECONDES EN HEURES (4 LIGNES)


Information sur la source

Catégorie :Date & Heure Classé sous : conversion, convertir, seconde, heure Niveau : Débutant Date de création : 23/07/2000 Vu / téléchargé: 6 507 / 492
Auteur : TomAmplius Ecrire un message privé
Note :
8 / 10 - par 5 personnes
8,00 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
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

Pour les "Membres Club", vous pouvez télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

Télécharger le zip

Commentaires et avis

signaler à un administrateur
Commentaire de manjik18 le 17/07/2003 15:30:23

Merci,
C'est simple, pratique et ca depanne

signaler à un administrateur
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 convertir une chaine de caractère en heure minute [ par romglad ] Je récupère une variable de type string sensée contenir une heure minute. ma variable est sur 4 caractères ex : hre = 1721 Je veux affecter cette vari conversion du mois (access) [ par Nine30 ] Bonjour, est ce quelqu'un pourrais me dire qu'elle est la fonction sous access quipermette de convertir le mois récupéré d'une date (donc au format ch conversion date/heure d'acces vers vb [ par nowsfr ] je n'arrive pas a recupere les donnée de type date/heure sous acces dans ma zone de texte quelqu'un saurait-il comment faire ??? Conversion d'un texte en heure... [ par imenerve ] Bjour, débutant en VB, j'ai besoin pour mon prog de convertir une heure sous forme de string issue d'un fichier texte (heure$="0735") en heure, de man convertir date/heure en entier (integer) [ par sabou94 ] bonjour, voila je voudrais pouvoir comparer deux dates et en ressortir le nombre de jours qui les separent (par exemple comparer le 10/02/2005 11h00 e Conversion DateTime [ par fredza ] Bonsoir,Je voudrais convertir (pas par le panneau de config)mon heure locale (DD/MM/YYYY HH:MM:SS) aves l'heure récuperée sur un serveur ntp (MM/DD/YY Conversion d'un entier long au format heure [ par gerard68 ] Je suis un p&#244;vre d&#233;butant. Je cherche &#224; convertir un entier long d'une cellule Excel au format Heure que je pourrais int&#233;grer dans DTPicker... tout bete... [ par lilith1928 ] voila la question toute b&#234;te, j'aimerais que mon DTPIcker m'affiche l'heure en temps r&#233;el (seconde par seconde)DTPicker.value = now 'm'affic Convertir un elapsedtime en seconde [ par finelame ] Bonjour, Voila ... comment on peut simplement convertir un elapsedtime en second en VB.Net ?Merci,


Nos sponsors

Sondage...

CalendriCode

Janvier 2009
LMMJVSD
   1234
567891011
12131415161718
19202122232425
262728293031 

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,218 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é.