une date dans 3 DBcombobox

salut tout le monde
je travail sur une petit projet qui contient une table1 et un champ date D1
pour éviter que l'utilisateur ne puisse écrire ce que il veux j'ai décomposé ma date sur 3 combobox
pour enregister sur la table pas de problème:ccool:
mais pour lire de la table :aie::bug:
j'airais que chaque DBcombobox recois une partie de la date
DBcombobox1:=jr
DBcombobox2:=mois
DBcombobox3:=année :cfou:
j’espère que quelqu’un puisse m'aidé

Personnellement, j'aurais autorisé l'utilisateur à saisir une date au format DD/MM/YYYY et aurais découpé dans mon code la saisie (par la fonction copy) pour faire les tests sur les champs après coups...

L'algorithme sur les dates est connu et les codes le sont aussi...

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

{Fonction retournant True si la date entrée est valide, False sinon} Function DateValide(UneDate: TDateRec) : Boolean;   Var Valide : Boolean;   Begin Valide := True; If (UneDate.Jour<1) Then Valide:=False; If ((UneDate.Jour>31) And ((UneDate.Mois=1) Or (UneDate.Mois=3) Or (UneDate.Mois=5) Or (UneDate.Mois=7) Or (UneDate.Mois=8) Or (UneDate.Mois=10) Or (UneDate.Mois=12))) Then Valide:=False; If ((UneDate.Jour>30) And ((UneDate.Mois=4) Or (UneDate.Mois=6) Or (UneDate.Mois=9) Or (UneDate.Mois=11))) Then Valide:=False; If ((UneDate.Jour>29) And (UneDate.Mois=2) And Bissext(UneDate.Annee)) Then Valide:=False; If ((UneDate.Jour>28) And (UneDate.Mois=2) And (Bissext(UneDate.Annee)=FALSE)) Then Valide:=False; If ((UneDate.Mois>12) Or (UneDate.Mois<1)) Then Valide:=False; DateValide:=Valide; End;

---

Avec TDateRec :

Code:

---

1 2 3 4 5

TDateRec=Record Jour: Integer; Mois: Integer; Annee: Integer; End;

---

2 remarques :
1. A mon avis, Windows implémentera toujours ça mieux que toi
2. J'ai l'impression que ce post fait un peu redite par rapport au post posté concernant le fait que l'utilisateur doit saisir des dates valides...

Th.

N'est ce pas le même sujet que éviter les date impossible ?

Il existe une fonction TryEncodeDate ou IsValidDate qui font cela très bien !
Pourquoi écrire un tel code pour une fonction qui existe depuis au moins D6 !

Merci a vous cela ma bcp aidé dans ma démarche :ccool:
mais moi je cherche le programme qui décompose la date d'un champ 'DATE' en 3 variable
combo1:Jr
combo2:mois
combo3:année

La fonction DecodeDate?