حصر السن وحسابه

[format82]

يمكن ايضا الاستخدام الاكواد التالية

كود :

باليوم Edit1.Text := IntToStr(DaysBetween(DateTimePicker1.Date, DateTimePicker2.Date)); شهر Edit2.Text := IntToStr(MonthsBetween(DateTimePicker1.Date, DateTimePicker2.Date)); السنة Edit3.Text := IntToStr(YearsBetween(DateTimePicker1.Date, DateTimePicker2.Date));

بعد اضافة DateUtils في uses