CALENDRIER FAIT AVEC WEEKDAY(DATE), DAY(DATE)... FAIT AUSSI HORLOGE
tomitom07
Messages postés
16
Date d'inscription
mardi 10 février 2004
Statut
Membre
Dernière intervention
22 janvier 2006
-
20 juil. 2004 à 10:08
tomitom07 Messages postés 16 Date d'inscription mardi 10 février 2004 Statut Membre Dernière intervention 22 janvier 2006 - 27 août 2004 à 13:55
tomitom07 Messages postés 16 Date d'inscription mardi 10 février 2004 Statut Membre Dernière intervention 22 janvier 2006 - 27 août 2004 à 13:55
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
https://codes-sources.commentcamarche.net/source/24736-calendrier-fait-avec-weekday-date-day-date-fait-aussi-horloge
27 août 2004 à 13:55
Tomitom
27 août 2004 à 13:54
Tomitom
20 juil. 2004 à 14:08
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
@+
20 juil. 2004 à 10:08