CALENDRIER FAIT AVEC WEEKDAY(DATE), DAY(DATE)... FAIT AUSSI HORLOGE

Signaler
Messages postés
16
Date d'inscription
mardi 10 février 2004
Statut
Membre
Dernière intervention
22 janvier 2006
-
Messages postés
16
Date d'inscription
mardi 10 février 2004
Statut
Membre
Dernière intervention
22 janvier 2006
-
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/24736-calendrier-fait-avec-weekday-date-day-date-fait-aussi-horloge

Messages postés
16
Date d'inscription
mardi 10 février 2004
Statut
Membre
Dernière intervention
22 janvier 2006

Ok merci, mais dans ce cas les fonctions citées plus haut ne sont pas utilisée et je voudrais les utilisé mais c'est vrai qu'au niveau optimisation ton code est loin devant
Tomitom
Messages postés
16
Date d'inscription
mardi 10 février 2004
Statut
Membre
Dernière intervention
22 janvier 2006

Ok merci, mais dans ce cas les fonctions citées plus haut ne sont pas utilisée et je voudrais les utilisé mais c'est vrai qu'au niveau optimisation ton code est loin devant
Tomitom
Messages postés
178
Date d'inscription
vendredi 1 novembre 2002
Statut
Membre
Dernière intervention
9 janvier 2010

Essaye plutot ceci

Option Explicit


Private Sub Timer1_Timer()
Dim He, Mn, Scd As Integer
Dim A$, H$, M$, S$
On Error Resume Next

A$ = "Il est : "
H$ = " Heure(s) "
M$ = " Minute(s) et "
S$ = " seconde(s) "

He = Format(Time, "hh")
Mn = Format(Time, "n")
Scd = Second(Now)

L1.Caption = A$ & He & H$ & Mn & M$ & Scd & S$

L2.Caption = "Nous sommes le: "
L2.Caption = L2.Caption + Format(Date, "dddd dd mmmm yyyy")

End Sub


@+
Messages postés
16
Date d'inscription
mardi 10 février 2004
Statut
Membre
Dernière intervention
22 janvier 2006

N'hesitez pas a deposer vos commentaires et silvouplait quand vous me notez expliquez la raison de cette notation car sinon je ne peut rien faire pour améliorer mon programme!