كيف اجمع تاريخ مع عدد من الأيام والناتج يكون تاريخ ؟

استخدم التابع

function IncDay(const AValue: TDateTime; const ANumberOfDays: Integer = 1)

الامر بسيط

تاريخ اي TDateTime

عدد اي Integer

جمع تاريخ مع عدد

اي TDateTime + integer

والناتح طبعا يكون TDateTime

مثال:

لديك 3 مكونات Edit و زر Button واحد

Edit1 للتاريخ

Edit2 لعدد الايام

Edit3 النتيجة

Button1 اكتب :

Var D : TDateTime;
	j : Integer;
begin
   D := StrToDate( Edit1.Text );
   j := StrToInt( Edit2.Text );
   D := D + J;
   Edit3.Text := DateTostr( D );
end;

لو جربنا المثال فوق 01/01/2008 و 10 ايام النتيجة ستكون 11/01/2008

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