عدد الأيام بين تاريخ اول الشهر و اخر الشهر

[AHMED KHALAF]

عندى برنامج بسيط وعاوز احسب عدد ايام العمل من بداية الشهر حتى اخرة ولكن بدون ان يحسب 31 يوم يعنى لو عدد الأيام وصل الى 31 يتم تغيرة الى 30 يوم

[طمطم]

اخي العزيز

مرفق مثال لعل فيه ما يفيدك

هنـــــــــــــــــــــــــــــــــا

[AHMED KHALAF]

اخي العزيز

مرفق مثال لعل فيه ما يفيدك

هنـــــــــــــــــــــــــــــــــا

<{POST_SNAPBACK}>

اختى العزيزة طمطم شكرا شكرا جزيلا هذا المثل نفعنى بس انا عندى مشكلة ثانية ودى خاصة بالبرنامج

[أبو هادي]

السلام عليكم

لمعرفة أيام الشهر :

myDate = #10/10/2006#
MonthDays = day(DateSerial(year(myDate), month(myDate) + 1, 1) - 1)
MonthDays = IIf(MonthDays > 30, 30, MonthDays)

ويمكن اختصاره الكود كالتالي :

myDate = #10/10/2006#
MonthDays = IIf(day(DateSerial(year(myDate), month(myDate) + 1, 1) - 1) > 30, 30, _
                day(DateSerial(year(myDate), month(myDate) + 1, 1) - 1))

تحياتي .

تم تعديل مارس 2, 2006 بواسطه أبو هادي