13-10-2012, 08:31 AM
السلام عليكم ورحمة الله
اكتب مثلا التاريخ 01/01/2012 النتيجة 31/12/2012
استخدم IncYear من الوحدة DateUtils
لا تنسى اضافة DateUtils لقائمة الUses
إقتباس :اضافة سنة لهُ...واضافة 365 يوم لهانتبه السنة ليست 365 يوم
اكتب مثلا التاريخ 01/01/2012 النتيجة 31/12/2012
استخدم IncYear من الوحدة DateUtils
كود :
Edit1.Text:=DateToStr(IncYear(StrToDate(Edit1.Text)));