begin process at 2012 02 12 19:32:25
  Trouver un code source :
 
dans
 
Accueil > 

Code

 > 

Date & Heure

 > DIFFÉRENCE ENTRE DEUX HEURES DE FORMAT HH:MM:SS

DIFFÉRENCE ENTRE DEUX HEURES DE FORMAT HH:MM:SS


 Information sur la source

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

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
Catégorie :Date & Heure Classé sous :différence, dates, len Niveau :Débutant Date de création :23/06/2000 Vu :12 174

Auteur : blq

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

 Description

Renvoie une valeur si le temps 1 est inferieur (0), égale (1) ou supérieur (2) au temps 2

Source

  • Function iTempsEgalite(ByVal Temps1 As String, ByVal Temps2 As String) As Integer
  • Dim hh1 As Integer, mm1 As Integer, ss1 As Integer
  • Dim hh2 As Integer, mm2 As Integer, ss2 As Integer
  • On Error GoTo ERROR_iTempsEgalite
  • iTempsEgalite = 0
  • If Len(Temps1) > 0 And Len(Temps2) > 0 Then
  • ' Première durée :
  • Call ExtraireHMStemps(Temps1, hh1, mm1, ss1)
  • ' Seconde durée :
  • Call ExtraireHMStemps(Temps2, hh2, mm2, ss2)
  • If hh1 > hh2 Then
  • iTempsEgalite = 2
  • Exit Function
  • ElseIf hh1 < hh2 Then
  • Exit Function
  • End If
  • If mm1 > mm2 Then
  • iTempsEgalite = 2
  • Exit Function
  • ElseIf mm1 < mm2 Then
  • Exit Function
  • End If
  • If ss1 > ss2 Then
  • iTempsEgalite = 2
  • Exit Function
  • ElseIf ss1 = ss2 Then
  • iTempsEgalite = 1
  • End If
  • End If
  • ERROR_iTempsEgalite:
  • Exit Function
  • End Function
Function iTempsEgalite(ByVal Temps1 As String, ByVal Temps2 As String) As Integer
    Dim hh1 As Integer, mm1 As Integer, ss1 As Integer
    Dim hh2 As Integer, mm2 As Integer, ss2 As Integer
    
    
    On Error GoTo ERROR_iTempsEgalite
    
    iTempsEgalite = 0
    
    If Len(Temps1) > 0 And Len(Temps2) > 0 Then
        ' Première durée :
        Call ExtraireHMStemps(Temps1, hh1, mm1, ss1)
        
        ' Seconde durée :
        Call ExtraireHMStemps(Temps2, hh2, mm2, ss2)
        
        If hh1 > hh2 Then
            iTempsEgalite = 2
            Exit Function
        ElseIf hh1 < hh2 Then
            Exit Function
        End If
        
        If mm1 > mm2 Then
            iTempsEgalite = 2
            Exit Function
        ElseIf mm1 < mm2 Then
            Exit Function
        End If
        
        If ss1 > ss2 Then
            iTempsEgalite = 2
            Exit Function
        ElseIf ss1 = ss2 Then
            iTempsEgalite = 1
        End If
    End If

ERROR_iTempsEgalite:
    Exit Function
End Function 

 Conclusion

Utile la fonction  ExtraireHMStemps() disponible dans la rubrique Date & Heure


 Sources du même auteur

Source .NET (Dotnet) UTILISATION DE SORTEDLIST POUR TRIER UNE COLLECTION DE VALEU...
ADDITION OU SOUSTRACTION DE DEUX HEURES DE TYPE HH:MM:SS
DATE DU JOUR
EXTRACTION D'INFORMATION SUR UNE HEURE HH:MM:SS
DECOUPAGE D'UN TEXTE SUR UNE LONGEUR DE LIGNE PRÉCISE

 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 .NET (Dotnet) NOM DU JOUR DE LA SEMAINE DE LA DATE CHOISIE par alpha5
Source avec Zip Source .NET (Dotnet) DATES DES FÊTES FIXES ET MOBILES par Shaegal
Source avec Zip SAISIE ASSISTÉE DE DATES par jmfmarques
Source avec Zip Source avec une capture Source .NET (Dotnet) [.NET2] DIFFÉRENCE ENTRE 2 DOSSIERS par NHenry
Source avec Zip COMPARAISON DE 2 FICHIERS VERS 1.0 par Iginse

Commentaires et avis

Commentaire de Renfield le 14/11/2007 07:43:24 administrateur CS

Pas utilisable, il manque une fonction...

place la dans CE code-ci, on ne va pas faire un jeu de piste, non !

sera supprimé sans cela.

(en passant, un DateDiff et quelques fonctions du genre feraient tout aussi bien le boulot)

Commentaire de blq le 14/11/2007 21:18:58

Je vous l'accorde c'est un peu nul... J'ai du poster le code, un soir tard et fatigué ! Je met à jour le tout

 Ajouter un commentaire


Discussions en rapport avec ce code source dans le forum

différence entre 2 dates [ par darwin42 ] salut,je voudrais pouvoir calculer le nombre de jours entre 2 dates contenues dans des textbox.j'utilise : Private Sub Form_Load()Dim NbJours As Integ Différence de dates [ par marpi66 ] Salut à tous le monde ,bravo pour le site et à tous les programeurs qui échangent leurs savoir et leurs idées.Si quelqu'un pouvait me tuyauter sur une Transtyper une variable intermédiaire de différences de dates en Integer [ par Flo_olf ] Bonjour, voici mon problème : Je travail sur des délais de livraison, en m'appuyant notamment sur deux dates, dont je fais la différence avec la fon Transtyper une variable intermédiaire de différences de dates en Integer [ par Flo_olf ] Bonjour, voici mon problème : Je travail sur des délais de livraison, en m'appuyant notamment sur deux dates, dont je fais la différence avec la fon Calculer la différence entre 2 Dates [ par lordkatarn ] Hello, Je sais plus quoi faire, je débute et je n'arrive pas à calculer la différence entre deux dates. J'ai deux textebox et j'ajoute une date (DD/MM Différence entre 2 dates [ par thguillon ] Bonjour,Je dois calculer la différence entre 2 dates. Donc aucun problème, avec diffdate ça marce bien.Seulement, je dois calculer le nombrede jours o différence entre 2 dates [ par zujam ] bonjour,j'aimerais savoir comment calculer le nombre de jours entre 2 dates SANS TENIR COMPTE DES SAMEDI et DIMANCHE !!!Merci d'avance pour votre aide différence de dates sous cristal report [ par franky2002 ] Bonjour,J'aurais besoin d'un p'tit coup de main sous Cristal, je m'explique :j'ai un "évènement 1" qui se passe à "une date et heure 1" et un "évèneme différence de jours entre 2 dates [ par rhapsomuse ] bonjour je recoit 2 dates (format 07/07/2006) et j'aimerai savoir le nombre de jour entre ces deux dates... en faisant: 'Me.listeXX.value corres Différence entre 2 dates [ par gibea00 ] Bonjour !J'aimerais faire la différence entre 2 dates du même titre que dans l'exemple et que le résultat serait en heures et minutes.   J'ai essayé d


Nos sponsors


Sondage...

CalendriCode

Février 2012
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
272829    

Consulter la suite du CalendriCode

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 : 2,621 sec (3)

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