Program runs without errors, unfortunately it will not calculate the days overdue. Any Suggestions? I have attached the code as a pdf, i have also done this as an IF, THEN, ELSE statement with the exact same results, but it will not let me upload it. Help!
Private Sub calculateFees (ByVal intDays As Integer, ByRef decTotalDue As Decimal) If intDays <= 3 Then decTotalDue = dec Fee Else If intDays > 3 Then decTotalDue = CDec((intDays - 3) * 1.5 + decFee) End If