afin de blinder ma saisie de date, je voudrais utiliser le controle de
Windows pour que mes utilisateurs l'utilise. Vous savez, là où ils
doivent cliquer sur le jour, le mois et l'année.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
le_troll
Bonjour, espérons que c'est ça que tu veux:
Menu projet [X] Microsoft Calendar 8.0
Ensuite tu affiches ton calendar
Dim jour as byte Dim mois as byte Dim an as integer Dim la_date As Date
La date c'est: la_date = jour & "/" & mois & "/" & an OU par DateSerial()
Calendar1.Value = date la_date = Calendar1.Value OU Calendar1.Year(Date) = an Calendar1.Month(Date) = mois Calendar1.Day(Date) = jour an = Calendar1.Year(Date) mois = Calendar1.Month(Date) jour = Calendar1.Day(Date)
-- Merci, @+, bye, Joe troll75 AROBASE iFrance POINT com ------------------------------------------ Le_Troll, éleveur de Trolls depuis César, qui disait: Avec une hache, celui qui tient le manche a toujours raison !
"thierry" a écrit dans le message de news:
Bonjour,
afin de blinder ma saisie de date, je voudrais utiliser le controle de Windows pour que mes utilisateurs l'utilise. Vous savez, là où ils doivent cliquer sur le jour, le mois et l'année.
Pouvez vous me dire où est ce controle.
CDT
Thierry
Bonjour, espérons que c'est ça que tu veux:
Menu projet [X] Microsoft Calendar 8.0
Ensuite tu affiches ton calendar
Dim jour as byte
Dim mois as byte
Dim an as integer
Dim la_date As Date
La date c'est:
la_date = jour & "/" & mois & "/" & an
OU par
DateSerial()
Calendar1.Value = date
la_date = Calendar1.Value
OU
Calendar1.Year(Date) = an
Calendar1.Month(Date) = mois
Calendar1.Day(Date) = jour
an = Calendar1.Year(Date)
mois = Calendar1.Month(Date)
jour = Calendar1.Day(Date)
--
Merci, @+, bye, Joe
troll75 AROBASE iFrance POINT com
------------------------------------------
Le_Troll, éleveur de Trolls depuis César, qui disait:
Avec une hache, celui qui tient le manche a toujours raison !
"thierry" <titi@laposte.net> a écrit dans le message de
news:GFr.1bb4d4a9e15c5d0c9896a3@News.dial.oleane.com...
Bonjour,
afin de blinder ma saisie de date, je voudrais utiliser le controle de
Windows pour que mes utilisateurs l'utilise. Vous savez, là où ils
doivent cliquer sur le jour, le mois et l'année.
Dim jour as byte Dim mois as byte Dim an as integer Dim la_date As Date
La date c'est: la_date = jour & "/" & mois & "/" & an OU par DateSerial()
Calendar1.Value = date la_date = Calendar1.Value OU Calendar1.Year(Date) = an Calendar1.Month(Date) = mois Calendar1.Day(Date) = jour an = Calendar1.Year(Date) mois = Calendar1.Month(Date) jour = Calendar1.Day(Date)
-- Merci, @+, bye, Joe troll75 AROBASE iFrance POINT com ------------------------------------------ Le_Troll, éleveur de Trolls depuis César, qui disait: Avec une hache, celui qui tient le manche a toujours raison !
"thierry" a écrit dans le message de news:
Bonjour,
afin de blinder ma saisie de date, je voudrais utiliser le controle de Windows pour que mes utilisateurs l'utilise. Vous savez, là où ils doivent cliquer sur le jour, le mois et l'année.
Pouvez vous me dire où est ce controle.
CDT
Thierry
thierry
In article , says...
Bonjour, espérons que c'est ça que tu veux:
Menu projet [X] Microsoft Calendar 8.0
Ensuite tu affiches ton calendar
Dim jour as byte Dim mois as byte Dim an as integer Dim la_date As Date
La date c'est: la_date = jour & "/" & mois & "/" & an OU par DateSerial()
Calendar1.Value = date la_date = Calendar1.Value OU Calendar1.Year(Date) = an Calendar1.Month(Date) = mois Calendar1.Day(Date) = jour an = Calendar1.Year(Date) mois = Calendar1.Month(Date) jour = Calendar1.Day(Date)
ok, jessaye de suite. merci beaucoup
In article <uFxp9nKnEHA.3520@TK2MSFTNGP11.phx.gbl>, le_trol@paris.fr
says...
Bonjour, espérons que c'est ça que tu veux:
Menu projet [X] Microsoft Calendar 8.0
Ensuite tu affiches ton calendar
Dim jour as byte
Dim mois as byte
Dim an as integer
Dim la_date As Date
La date c'est:
la_date = jour & "/" & mois & "/" & an
OU par
DateSerial()
Calendar1.Value = date
la_date = Calendar1.Value
OU
Calendar1.Year(Date) = an
Calendar1.Month(Date) = mois
Calendar1.Day(Date) = jour
an = Calendar1.Year(Date)
mois = Calendar1.Month(Date)
jour = Calendar1.Day(Date)
Dim jour as byte Dim mois as byte Dim an as integer Dim la_date As Date
La date c'est: la_date = jour & "/" & mois & "/" & an OU par DateSerial()
Calendar1.Value = date la_date = Calendar1.Value OU Calendar1.Year(Date) = an Calendar1.Month(Date) = mois Calendar1.Day(Date) = jour an = Calendar1.Year(Date) mois = Calendar1.Month(Date) jour = Calendar1.Day(Date)
