Discussion :

[bsdocuments]

Salut,

J'ai longtemps utilsé les DateTimePicker, mais un problème qui se pose..
le teste entre eux,

Code :

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

1
2
3
 
if DateTimePicker1.Date>DateTimePicker2.Date
  then ShowMessage('...')

ceci est ok;

mais peut-on tester sur l'égalité?.., un résultat mistère?..
voici le code: DateTester.zip

a+

[edam]

j'ai pas vus le code, mais c'est normal pour l'egalité qui sera différent, peut être on utilisant la fonction "int" sera juste

[evarisnea]

pour la comparaison des dates, tu peux utiliser les fonctions CompareDate, CompareTime ou CompareDateTime contenues dans l'unité DateUtils. elles te renvoient les constantes LessThanValue, EqualsValue et GreaterThanValue (constantes contenues dans l'unité Types) respectivement pour Plus petit que, égalité et supérieur que.
sur ces fonctions pour plus de précisions.

[bsdocuments]

Donc la solution est la suivante:

Code :

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

1
2
3
4
5
6
7
8
9
function CompareDate(const A, B: TDateTime): TValueRelationship;
begin
  if Trunc(A) = Trunc(B) then
    Result := EqualsValue
  else if A < B then
    Result := LessThanValue
  else
    Result := GreaterThanValue;
end;

Dont "Trunc()" renvoit le résultat en "Int64"..

Merci..
à +