التعامل مع التواريخ (الدالة التي يغفل عنها الكثير)

[محمد عبد العزيز]

السلام عليكم ورحمة الله
اضافة بسيطة
الامر التالي

كود :

Date1 := IncDay(Date1, NbDay);

يمكن كتابته

كود :

Date1 := Date1+ NbDay;

ايضا هذا

كود :

Diff := DaysBetween(Date2, Date1);

يمكن كتابته

كود :

Diff := Date2- Date1;

مع الانتباه الطرح من التاريخ الأكبر/الأحدث او كخيار اخر اهمال ذلك واخذ القيمة المطلقة

كود :

Diff := Abs(Date2- Date1);