Function calculateInterestRate