حساب مكافأة نهاية الخدمة

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

الأخ الكريم

هل بالإمكان إرفاق قاعدة البيانات ( بصيغة أكسيس 2003 ) ؟ حتى يتم التعامل معها مباشرة ، وحتى نفهم سؤالك بشكل أحسن ونستطيع مساعدتك .

بارك الله فيك

أخي saswahaibi حسب مافهمت من مشاركتك اليك احد الحلول من خبرتي المتواضعة

وهي عبارة عن جزأين الأول يفوم بحساب عدد أيام الخدمة خر يقوم بحساب نهاية الخدمة المطلوبة

علمأ أنني لم أستطع ارفاق المثال لظهور رسالة من الموقع تفيد بأنه ليس لدي صلاحية بذلك ;

Public Function MyDateDiff(StartDate, EndDate)
On Error GoTo errme
    MyDateDiff = DateDiff("d", CDate(StartDate), CDate(EndDate))
Exit Function
errme:
MyDateDiff = 0
End Function

Public Function Benefit(TotalAmt, Days)
On Error GoTo errme
        If Days > 365 * 3 Then
            Benefit = (TotalAmt * 3) + TotalAmt * (Days - (365 * 3)) * 2 / 365
        Else
            Benefit = TotalAmt * Days / 365
        End If

             Benefit = Round(Benefit, 0)
Exit Function

errme:
Benefit = 0
End Function