Source pour aider à arreter de fûmer, exemple de calcul entre 2 dates
Soyez le premier à donner votre avis sur cette source.
Vue 7 831 fois - Téléchargée 1 823 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.
aucun bug connu... trop simple pour ça!
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!
- Messages postés
-
215
- Date d'inscription
- jeudi 24 octobre 2002
- Statut
- Membre
- Dernière intervention
- 7 septembre 2007
1pas tres utile ni super bien fait mais rigolo
comme quoi l'idée marketing compte plus que le technique le mettant en oeuvre ;)
Salem.
intX / intY = Division avec virgules
intX \ intY = Division Entière (pas de virgules)
mais comment ça se fait qu'il n'y a pas de virgules quand vous diviser le nombre de secondes
par n'importe quel mms**** dans votre source. car quand j'ai fait la même chose dans mon
projet, je trouve des virgules, donc j'ai utiliser la methode "int(nombre)" pour avoir la
partie entiere. ce que j'ai pas compris c'est le trucs qui est en votre source.
si vous pouvez me l'expliquer ?
Merci
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.