Des combos & des dates

patl76 Messages postés 69 Date d'inscription jeudi 21 novembre 2002 Statut Membre Dernière intervention 21 mai 2013 - 12 mars 2004 à 16:01
patl76 Messages postés 69 Date d'inscription jeudi 21 novembre 2002 Statut Membre Dernière intervention 21 mai 2013 - 12 mars 2004 à 16:36
Salut à tous !!
J' ai une p' tite question vite fait au passage...

J' ai 3 combobox dans lequels je rentre une date:
1 combo pour le jour, 1 pour le mois & 1 pour l' année...

Dans cet optique je voudrait afficher par defaut, au moment du load de ma form, la date du jour ds les 3 combobox; en mettant le jour ds un, le mois ds le 2eme & l' année ds le dernier...

Est ce possible ??
Y a une méthode qui permet de le faire automatiquement ou il faut que je fasse une fonction de psycopathe...?

Merci d' avance ....

2 réponses

crenaud76 Messages postés 4172 Date d'inscription mercredi 30 juillet 2003 Statut Membre Dernière intervention 9 juin 2006 28
12 mars 2004 à 16:17
Dim D as date, J as long, M as long, A as long
D = now()
j = day(D)
m = month(D)
a = year(D)
cmbjour.listindex = d-1
cmbmois.listindex = m-1
cmbannee.listindex = a-cmbannee.list(0)

cela devrait fonctionner
Christophe R.
0
patl76 Messages postés 69 Date d'inscription jeudi 21 novembre 2002 Statut Membre Dernière intervention 21 mai 2013
12 mars 2004 à 16:36
Merci du coup de main crenaud76 !!

Ca marche nickel ton systeme !!!
Ton m' ar tiré une épine du pied ....

A+
0
Rejoignez-nous