Pro-Rated Weekly Discount

Hi Everyone,

I have a situation where I am trying to pro-rate a discount for late Shipments.  The discount should be 1% per week up to 15 weeks (or 15% max).  My hope is to pro-rate partial weeks.  What I am finding with this current formula is that, for example, 6 days late (or 0.86 of the week) is only showing ~0.13% discount....but I would assume it should show a 0.86% discount.

IF(
    'tblSIRFIS'[Week Diff] > 0,
    IF(
        'tblSIRFIS'[Week Diff] < 1,
        'tblSIRFIS'[Week Diff] * 0.01 * 0.15,
        (
            INT('tblSIRFIS'[Week Diff]) * 0.01 +
            MOD('tblSIRFIS'[Week Diff], 1) * 0.01 * 0.15
        )
    ),
    0
)

The "Week Diff" column shows the weeks in partial.  So 6 days late shows 0.86 weeks late.

Any ideas?

Thanks,
Matt