Soyez le premier à donner votre avis sur cette source.
Vue 7 960 fois - Téléchargée 1 825 fois
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
24 mai 2005 à 11:48
24 mai 2005 à 11:11
pas tres utile ni super bien fait mais rigolo
comme quoi l'idée marketing compte plus que le technique le mettant en oeuvre ;)
24 mai 2005 à 01:04
Salem.
23 mai 2005 à 19:52
intX / intY = Division avec virgules
intX \ intY = Division Entière (pas de virgules)
23 mai 2005 à 15:01
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.