المشاركات : 33
المواضيع 17
:
: 3
الإنتساب : Sep 2024
السلام عليكم
كيف احول العمر ابتدا من اليوم والشهر والسنة الي رقم حيث مثلا مواليد 15/04/1980 الي الي هذا اليوم 20/10/2025 وليكن عمرة مثلا 45 لااريد يظهر معة اليوم والشهر والسنة في النتيجة
فقد نقصت تاريخ العام من تاريخ الميلاد ظهر معة اليوم والشهر والقرن 1945 بدل 45
المشاركات : 628
المواضيع 72
:
: 211
الإنتساب : Jun 2010
السلام عليكم
جرب هذا :
كود :
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 تعطي الفرق بين تاريخين بالسنوات فقط (عدد صحيح).
أدبني الدهر فأراني نقص عقلي وإذا ما ازددت علما زادني علما بجهلي
المشاركات : 33
المواضيع 17
:
: 3
الإنتساب : Sep 2024
20-10-2025, 11:15 AM
(آخر تعديل لهذه المشاركة: 20-10-2025, 11:27 AM بواسطة سليم 2024.)
(20-10-2025, 09:16 AM)لؤي كتب : السلام عليكم
جرب هذا :
كود :
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 تعطي الفرق بين تاريخين بالسنوات فقط (عدد صحيح).
اين اضع هذة المكونات في BOTTOM او اي حدث من الفورم فياريت اخي توضح اكثر وضعها في BOTTOM كي نشوف التغير في باقي الاقسام مثل قسم التعريف VAR والتغير في قسم Impementation اذا كان هناك تغير وقسم user
الخ...
المشاركات : 33
المواضيع 17
:
: 3
الإنتساب : Sep 2024
21-10-2025, 08:53 AM
(آخر تعديل لهذه المشاركة: 21-10-2025, 09:08 AM بواسطة لؤي.)
هذا كود باسكال وليس دلفي ولقد تم تعديله بهذا الشكل
كود :
Procedure TFORM1.BUTTON1CLICK(SENDER:TOBJECT);
var
BirthDate, Today: TDateTime;
Age: Integer;
begin
BirthDate := EncodeDate(1980, 4, 15); // تاريخ الميلاد (سنة، شهر، يوم)
Today := Date; // تاريخ اليوم الحالي
Age := YearsBetween(Today, BirthDate); // حساب الفرق بالسنوات فقط
Showmessage('العمر هو: '+inttostr( Age));
end;
المشاركات : 9
المواضيع 2
:
: 23
الإنتساب : May 2024
لا تنسى في الأعلى في USES تصرح بـ DateUtils لكي يتعرف الدلفي على التعليمة EncodeDate
