Filtrer les dates d'un datetimepicker

**bertrand_declerck** · 23/09/2005, 15h24

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

merci[/code]

**Manopower** · 23/09/2005, 15h27

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
procedure TForm1.DateTimePicker1Change(Sender: TObject);
begin
  showmessage('.');
end

**bertrand_declerck** · 23/09/2005, 15h48

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

**Rayek** · 23/09/2005, 15h52

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

**bertrand_declerck** · 23/09/2005, 15h58

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 !

**SubZero2** · 23/09/2005, 16h08

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

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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;

**Rayek** · 23/09/2005, 16h08

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 ...

**Rayek** · 23/09/2005, 16h10

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

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 ^^

**SubZero2** · 23/09/2005, 16h11

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

**Rayek** · 23/09/2005, 16h12

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.

**SubZero2** · 23/09/2005, 16h14

Post croisés !

**Manopower** · 23/09/2005, 16h15

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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

**bertrand_declerck** · 23/09/2005, 16h21

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

**SubZero2** · 23/09/2005, 16h21

il y passe toujours 2 fois

**Rayek** · 23/09/2005, 16h29

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

**bertrand_declerck** · 23/09/2005, 16h32

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.

**SubZero2** · 23/09/2005, 16h39

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

**Rayek** · 23/09/2005, 16h44

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 ^^