Allowable salary deductions

[jackjoush]

Hello everyone
If column A contains a date Less than the beginning of the Financial Year
divide column C by Number of days of the month then multiply in column B
and If column A contains a date between the beginning and end of the financial year
divide column D by Number of days of the month then multiply in column B

Code: Select all

Function Sanctions(dtm, dys, totals1, totals2)
    Dim sab As Long
    Dim md As Long
    Dim totals As Double
    sab = Year(DateAdd("m", 6, dtm))
    If sab = 2021 Then
        totals = totals1
    Else
        totals = totals2
    End If
    md = Day(DateSerial(Year(dtm), Month(dtm) + 1, 0))
    Sanctions = totals / md * dys
End Function

This UDF works fine but I need some modifications, so that the discount rate does not exceed 25% of the net salary for the current month
in column N .... The rest will be deducted in the coming months Until the amount to be deducted is over.
It would be appreciated if someone could kindly assist me in add some conditions to follow up on this ...Thank you in advance

[HansV]

See the attached version.

Book1.xlsm

[jackjoush]

Thanks a lot Mr. Hans
I think we need another function to do this automatically and put it in the cell I2
For more clarification ... please refer my attached sample file and in yellow cells that result that i wish..
Thank you so much for your time. Really appreciate that.

[HansV]

That's too complicated, sorry.

[jackjoush]

Thanks a lot Mr. Hans
I hope someone can help with this
Regards