Discussion :

[vpourchet]

bonjour, j'essaies dans mon prgramme de comparer deux dates, en fait je dois tester un intervalle de ce type :

01/06/2009 <=01/06/2009<= 31/06/2009

voici le code de ma condtion :

Code :

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

1
2
3
4
 if ((EncodeDate(strtoint(Node.text), strtoint(listMois.strings[i]), 1) <= dtpAu.Date) and ((EncodeDate(strtoint(Node.text), strtoint(listmois.strings[i]),1) >= dtpDu.date))) then begin
...
...
end;

j'ai testé avec des ShowMessage mais j'ai l'impression que seul le premier test marche, en fait j'ai limpression que c'est le '<=' qui foire quand mes dates sont égales.

le jeu de donné était le suivant :

date a comparer : 01/06/2009
intervalle mini : 01/06/2009
intervalle maxi : 15/06/2009

[vpourchet]

résolu avec DaysBetween(d1,d2) >= 0

edit : en fait non cela ne marche pas etant donné que delphi me retourne un entier positif quand je compare mes dates je ne peut pas savoir si elles sont comprises dans l'intervalle.

quelqu'un aurait il une suggestion ?

[sat83]

Dans ton test :

Code :

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

(EncodeDate(strtoint(Node.text), strtoint(listMois.strings[i]), 1) <= dtpAu.Date)

probablement que dtpAu.Date contient également une heure.

Comme en Delphi les TDateTime sont codés avec la partie entière correspondant a la date, et la partie décimale correspondant a l'haure, ton problème vient de là!

essai de tronquer (enlever la partie décimale) la valeur de ta date:

Code :

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

(EncodeDate(strtoint(Node.text), strtoint(listMois.strings[i]), 1) <= Trunc(dtpAu.Date))

[vpourchet]

merci, j'ai bien essayé le Trunc mais cela ne marche toujours pas. De plus, la date est extraite d'un dateTimePicker mais sans heure/minutes/secondes donc le format est correct .

[vpourchet]

en fait si, ca marche merci beaucoup sat83