إضافة شهور و سنين مباشرة

[محمد طاهر عرفه]

دالة لاضافة شهور و سنين باستخدام DateAdd

حيث لا يمكن استخدامها مباشرة فى ورقة العمل

Function addmonth(mydate As Date, no As Integer) As Date

  addmonth = DateAdd("m", no, mydate)

End Function


Function addday(mydate As Date, no As Integer) As Date

  addday = DateAdd("d", no, mydate)

End Function


Function addyear(mydate As Date, no As Integer) As Date

  addyear = DateAdd("yyyy", no, mydate)

End Function

add_date.zip

[محمد طاهر عرفه]

نفس المثال

بالطريقة التقليدية

لاضافة سنة

=+DATE(YEAR(A1)+1;MONTH(A1);DAY(A1))

لاضافة 3 أشهر

=+DATE(YEAR(A1);MONTH(A1)+3;DAY(A1))

لاضافة 5 أيام

=+DATE(YEAR(A1);MONTH(A1);DAY(A1)+5)

او

=+A1+5

add_date2.zip