كيف اجد تاريخ يوم استنادا على عدد ايام

[saiddsa3980]

السلام عليكم أخي الكريم أنا عامل برنامج تسيير المستخدمين من برمجتي وإليك الحل

كود :

Var D : TDateTime; j : Integer; begin D := StrToDate( DBEdit1.Text ); j := StrToInt( DBEdit2.Text ); D := D + J; DBEdit3.Text := DateTostr( D ); end;