20-10-2025, 09:16 AM
السلام عليكم
جرب هذا :
الدالة YearsBetween من وحدة DateUtils تعطي الفرق بين تاريخين بالسنوات فقط (عدد صحيح).
جرب هذا :
كود :
uses
SysUtils, DateUtils;
var
BirthDate, Today: TDateTime;
Age: Integer;
begin
BirthDate := EncodeDate(1980, 4, 15); // تاريخ الميلاد (سنة، شهر، يوم)
Today := Date; // تاريخ اليوم الحالي
Age := YearsBetween(Today, BirthDate); // حساب الفرق بالسنوات فقط
Writeln('العمر هو: ', Age);
end.الدالة YearsBetween من وحدة DateUtils تعطي الفرق بين تاريخين بالسنوات فقط (عدد صحيح).
أدبني الدهر فأراني نقص عقلي وإذا ما ازددت علما زادني علما بجهلي