1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35
|
var
dif:integer;
naiss:tdatetime;
ans,mois,jours,ans1,mois1,jours1:word;
begin
debut.Dtailsagents1.Enabled:=false;
combobox1.Text:='';
dif:=0;
decodedate(now,ans,mois,jours);
adotableinfo.First;
while not adotableinfo.EOF do
begin
naiss:=adotableinfo.Fields[13].asdatetime;
decodedate(naiss,ans1,mois1,jours1);
if ((mois=mois1)and(jours>=jours1))or(mois>mois1) then
dif:=ans-ans1 ;
if ((mois=mois1)and(jours<jours1))or(mois<mois1)then
dif:= (ans-ans1)-1;
if naiss=0 then
dif:=0;
adotableinfo.Edit;
adotableinfo.fields[12].asinteger:=dif;
adotableinfo.Post;
adotableinfo.next;
end; |
Partager