كيفية حساب العمر عن طريق ادخال السنة فقط

[Anter2010]

السلام عليكم ورحمة الله وبركاته

ان شاء الله قد توصلت الى الحل

PHP كود :

procedure TForm1.edt1Change(Sender: TObject);
var
year,month,day:word;
begin
  if edt1.Text <> '' then
  begin
 DecodeDate(date, Year, Month, Day);
  Edt2.Text:=   IntToStr((year) - StrToInt(edt1.Text))
  end
else
    edt2.Clear;
  end;

end.