Beginning Balance + Deposits
Compute the Interest Earned. If the Subtotal is greater than 5000.00
the interest rate is 2 percent otherwise 1 percent.
g Balance (Sub Total + Interest EarneD)
Interest Earned and Ending Balance
decSubTotal = (decBalance + decDeposits - decWithdrawls) If decSubTotal > 500.0 Then decearned = 0.02 End If decending = (decSubTotal + decearned) lblInterest.Text = decearned.ToString("C") lblEnding.Text = decending.ToString("C") End Sub