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

[bassem_43]

اهلا اخي عنتر
بما ان الدالة YearsBetween تحسب الفارق بين تاريخين فسيكون date1 يحتوي على تاريخ وليس رقم كما فعلت انت ادن :
date1 := StrToDate(Edt1.Text); ليكون الكود كما يلي :

PHP كود :

procedure TForm1.edt1Change(Sender: TObject); 
var 
   date1, date2: TDate; 
begin 
  date1 := StrToDate(Edt1.Text); 
  date2 := Now; 
  Edt2.Text:=  FloatToStr(YearsBetween(date2, date1)); 
end; 

end. 


والله اعلم