Discussion :

[HDR_16]

Bonjour tous le monde
j'ai une date D1 sélectionnée par l'utilisateur et je veux que cette date ne sera pas inférieur à D1-x
ce X est une variable numérique stockée dans la BDD il est variant et modifiable par le gérant de l'entreprise
j'ai fait

Code :

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

1
2
3
4
5
6
7
if ((mains.DBDateEdit1.DataSource.DataSet.fieldbyname('Date1').AsDateTime)<=((mains.DBDateEdit1.DataSource.DataSet.fieldbyname(Date2').AsDateTime)-(dmsup.Entreprise.FieldByName('NbrJrsAntDate').Value));
  then
 begin
       MessageDlg('Veuillez renseigner la Date correctement',mtCustom,[mbOK],0,mbOK);
    abort;
end;

mais ça ne marche pas
je sais que .Value est différent de .Date
mais j'ai essayé auparavant avec CompareDate ca n'a pas marché non plus
Si vous avez des idées please help

[tourlourou]

Cela fonctionne-t-il en les utilisant tous en AsFloat ?

[tarekk73]

bon jour
ça ne marche pas ou exactement ou est le probleme
j'ai essayee l'exemple suivent et ça marche bien

Code :

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

1
2
3
4
5
procedure TForm1.DateTimePicker1Change(Sender: TObject);
begin
if  DateTimePicker1.DateTime <  DateTimePicker2.DateTime - strtoint(edit1.Text) then
showmessage ('entreé une autre date ');
end;

[ShaiLeTroll]

Le sujet étant marqué
Peut-être que HDR_16 a trouvé la réponse entre-temps et n'a pas précisé ce qu'il a corrigé

[HDR_16]

l'erreur que je faisais et que je prenais pas la date en cours du système
donc je faisais la soustraction par rapport ma date
et c'est bon j'ai trouvé mon erreur
et ça marche très bien
merci pour vos réponse