Source pour aider à arreter de fûmer, exemple de calcul entre 2 dates

Soyez le premier à donner votre avis sur cette source.

Vue 7 657 fois - Téléchargée 1 788 fois

Description

Petite source bien simple mais qui montre bien comment calculer la différence entre 2 dates et heures ou le temps restant ou écoulé depuis une date.

Ca peut parraître très simpliste mais si cette source peut aider 1 personne à arrêter de fumer alors elle n'aura pas été postée en vain.

C'est ma première source postée, les commentaires sont bienvenus.

Source / Exemple :


Public timer As Integer

Private Sub Timer1_Timer()      'Timer pour rafraichir les labels de temps
    Dim cible As Date
    Dim resultat As String
    
    Dim mms_an As Double
    Dim mms_jour As Double
    Dim mms_heure As Double
    Dim mms_minute As Double
    Dim mms_seconde As Double
    Dim diff_mms As Double
    
    Dim diff_annee As Double
    Dim diff_jours As Double
    Dim diff_heures As Double
    Dim diff_minutes As Double
    Dim diff_secondes As Double
    
    cible = "2005/05/19 04:33:00"  'Date de départ
    
    diff_mms = DateDiff("s", cible, Now) 'Différence en secondes
                                         'Entre la date de départ
                                         'Et celle du système
    
    
    mms_an = 31536000   'Nombre de secondes dans un an
    mms_jour = 86400    'Nombre de secondes dans un jour
    mms_heure = 3600    'Nombre de secondes dans une heure
    mms_minute = 60     'Nombre de secondes dans une minute
    mms_seconde = 1     'Une seconde
    
     
      
    diff_annee = diff_mms \ mms_an                     'Diviser le temps écoulé en années
    diff_mms = diff_mms - (diff_annee * mms_an)        'Enlever les années au temps écoulé
     
    diff_jours = diff_mms \ mms_jour                   'Diviser le temps écoulé en jours
    diff_mms = diff_mms - (diff_jours * mms_jour)      'Enlever les jours au temps écoulé
     
    diff_heures = diff_mms \ mms_heure                 'Diviser le temps écoulé en heures
    diff_mms = diff_mms - (diff_heures * mms_heure)    'Enlever les heures au temps écoulé
    
    diff_minutes = diff_mms \ mms_minute               'Diviser le temps écoulé en minutes
    diff_mms = diff_mms - (diff_minutes * mms_minute)  'Enlever les minutes au temps écoulé
    
    diff_secondes = diff_mms \ mms_seconde             'Diviser le temps écoulé en secondes
    
    Label1.Caption = diff_annee        'afficher les années écoulées
    
    Label11.Caption = diff_jours       'afficher les jours écoulées
    
    Label111.Caption = diff_heures     'afficher les heures écoulées
    
    Label1111.Caption = diff_minutes   'afficher les minutes écoulées
    
    Label11111.Caption = diff_secondes 'afficher les secondes écoulées
    
    
    
End Sub

Private Sub Timer2_Timer()   'Timer pour les images
    If timer = 0 Then        'Pour empêcher de faire image(0) -1
    timer = 1
    End If
    
   
    If timer = 21 Then       'repartir le timer
    timer = 1
    End If
    
    
    Image1(timer).Visible = True         'Afficher l'image
    
    Image1(timer - 1).Visible = False    'Effacer l'image précédente
   
    
    timer = timer + 1                    'incrémenter le timer
    
    
End Sub

Conclusion :


aucun bug connu... trop simple pour ça!

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

mehdi146
Messages postés
8
Date d'inscription
mardi 8 mars 2005
Statut
Membre
Dernière intervention
19 mai 2005
-
Comme je viens à peine d'arrêter de fumer (depuis 3 jours), je la trouve très bien ton idée.
asem67
Messages postés
145
Date d'inscription
mardi 3 septembre 2002
Statut
Membre
Dernière intervention
24 février 2008
-
Si c'etait aussi simple ce serai super!
courage MEHDI146
bravo pour l'idee Tonkadan
cs_CanisLupus
Messages postés
3758
Date d'inscription
mardi 23 septembre 2003
Statut
Modérateur
Dernière intervention
13 mars 2006
4 -
Pas mal du tout, mais , dis moi tu as soigneusement évité les mois pourquoi veux tu compter les années ? Il y a des années bissextiles !
cauchybz
Messages postés
10
Date d'inscription
jeudi 9 novembre 2000
Statut
Membre
Dernière intervention
27 février 2007
-
bouhours amigos(as),
je me suis dans une partie de mon programme de base de données sur les photos, en fait je veux faire appariatre le nom de chaque etudient et son adress ca c'est simple, mais leurs photos c'est encore dur pour moi autant que debutant merci de m'envoiyer le code et la methode qui me servira
VestaX
Messages postés
376
Date d'inscription
mardi 2 décembre 2003
Statut
Membre
Dernière intervention
24 avril 2013
-
ca a l'air pas mal :) serais t'il possible d'avoir la version en .exe ?? merci d'avance :)

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.