Filtrer les dates d'un datetimepicker

Bonjour

J'aimerai que l'utilisateur puisse choisir une date et dès qu'il a validé son choix, le résultat affiché, si'il n'est pas dans les conditions requises comme indiqués ci-bas, on envoie un showmessage + une remise à jour de la date

en bref, j'ai le code de vérification mais je sais pas dans quel événement du datetimepicker, je dois l'insérer !

Je cherche où positionner ce code

Code:

---

1 2 3 4 5 6

if datetimepicker1.Date < 01/10/2005 then begin showmessage('Pas possible ! '); datetimepicker1.date := now; end;

---

merci[/code]

Bonjour,
l'évenement que tu cherches est le OnChange

Code:

---

1 2 3 4

procedure TForm1.DateTimePicker1Change(Sender: TObject); begin showmessage('.'); end

---

Merci

mais le problème est que lorsque je met mon code dedans,
il m'avertit grâce à mon showmessage mais ce dernier boucle sans fin ! Donc j'ai pas le temps de réinitialiser la date à Now !

Comment optimiser ce code ?

merci

Reinitialise ta date a now d'abord puis affiche le message apres ^^

Code:

---

1 2 3 4 5 6 7 8 9 10

procedure Tseptembre.DateTimePicker1Change(Sender: TObject); begin if datetimepicker1.Date < 01/10/2005 then begin caisse.FieldByName('MVTDATEDOC').AsDateTime := DateTimePicker1.DateTime; end else datetimepicker1.date := now; showmessage('Pas possible ! '); end;

---

j'ai fait cela justement et cela boucle à donf !

il faut que tu desactive l'evenement onchange de ton DTP au debut du traitement et que tu le remtte a la fin :wink:

Sinon effectivement, dans le Onchange tu CHANGE la date donc boucle ... :wink:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

procedure Tseptembre.DateTimePicker1Change(Sender: TObject); begin datetimepicker1.OnChange := nil;   if datetimepicker1.Date < 01/10/2005 then begin caisse.FieldByName('MVTDATEDOC').AsDateTime := DateTimePicker1.DateTime; end else datetimepicker1.date := now; showmessage('Pas possible ! ');   datetimepicker1.OnChange := DateTimePicker1Change; end;

---

Code:

---

1 2	if datetimepicker1.Date < 01/10/2005 then

---

Déjà ca, c'est impossible que ca fonctionne, tu fais 1 divisé par 10 divisé par 2005.

Ecrit plutot

Code:

---

1 2	if datetimepicker1.Date < StrToDate('01/10/2005') then

---

Vu que now devait être une date < a 01/10/2005, quand tu changes la date a now bin il al rechange, la rechange etc ...

Citation:

---

Envoyé par SubZero2

il faut que tu desactive l'evenement onchange de ton DTP au debut du traitement et que tu le remtte a la fin :wink:

Sinon effectivement, dans le Onchange tu CHANGE la date donc boucle ... :wink:

Code:

---

1 2 3 4 5

begin DTP.OnChange := nil; // Traitement DTP.Onchange := DateTimePickerOnChange; end;

---

---

Si son if etait correct, ca bouclerai que 2 fois dans le onchange. Mais c'est vrai que c'est plus propre quand on coupe l'événement ^^

c'est vrai mais il n'as pas a y passer 2 fois, avec une ca suffit, non ?

Citation:

---

Envoyé par SubZero2

c'est vrai mais il n'as pas a y passer 2 fois, avec une ca suffit, non ?

---

Oui, oui je dis pas le contraire ^^ (j'ai edit mon post j'ai envoyé trop vite ^^)

Mais bon, du à l'erreur au niveau de son if, c'est clair que ca bouclait indéfiniment.

Post croisés ! :wink: :)

J'aurais bien vu un test sur le OnChange moi plutôt que de supprimer la référence à l'évenement

Code:

---

1 2	If DTP.Date <> Now then DTP.Date := Now;

---

Si je ne m'abuse ça suffit à ne pas faire boucler le OnChange.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

procedure Tseptembre.DateTimePicker1Change(Sender: TObject); begin   datetimepicker1.OnChange := nil;   if datetimepicker1.Date < strtodate ('01/10/2005') then begin caisse.FieldByName('MVTDATEDOC').AsDateTime := DateTimePicker1.DateTime; end else showmessage('Pas possible ! '); datetimepicker1.OnChange := datetimepicker1change;   end;

---

Réaction de code très très bizarre car il m'indique le dépassement grâce au showmessage puis au lieu de se mettre à la date du jour, il me fait défiler l'écran des mois jusqu'à 2006 ! puis au bout de x défilements, il arrête son traitement pour me mettre une date en 2006.

il y passe toujours 2 fois :P

Citation:

---

Envoyé par -Sylvain Leray-

J'aurais bien vu un test sur le OnChange moi plutôt que de supprimer la référence à l'évenement

Code:

---

1 2	If DTP.Date <> Now then DTP.Date := Now;

---

Si je ne m'abuse ça suffit à ne pas faire boucler le OnChange.

---

Bin si, Exemple :

1 - Passe la date a jour + 10
2 - Le onchange s'active
3 - Test de la date , elle est differente de now
4 - Modification de la date et reappel de l'evenement onchange car on modifie la date du dtp
5 - Test de la date, elle est = a now
6 - fin

là je comprends ce que vous voulez dire mais je ne vois pas là où je dois modifier dans mon code pour éviter la boucle.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

procedure Tseptembre.DateTimePicker1Change(Sender: TObject); begin datetimepicker1.OnChange := nil; <==== LA   if datetimepicker1.Date < 01/10/2005 then begin caisse.FieldByName('MVTDATEDOC').AsDateTime := DateTimePicker1.DateTime; end else datetimepicker1.date := now; showmessage('Pas possible ! ');   datetimepicker1.OnChange := DateTimePicker1Change; <==== LA end;

---

Pour moi c'est le plus simple et propre ... mais ce n'est qu'un avis personel :wink:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

procedure Tseptembre.DateTimePicker1Change(Sender: TObject); begin datetimepicker1.OnChange := nil;   if datetimepicker1.Date < StrToDate('01/10/2005') then <<<--- Sans l'erreur ^^ begin caisse.FieldByName('MVTDATEDOC').AsDateTime := DateTimePicker1.DateTime; end else datetimepicker1.date := now; showmessage('Pas possible ! ');   datetimepicker1.OnChange := DateTimePicker1Change; end;

---

La meme que subzero2 mais sans l'erreur au niveau de la date du if ^^

ton code ne marche pas, cela boucle encore !

Puis vu qu'il a la jvcl, ca serait pas mieux d'utiliser un jvdbdatetimepicker et de gérér ca au niveau de l'enregstrement dans la base de données ?