IceDragon200

[VB]Interest rate

May 14th, 2012
157
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. Dim interestRate As Single = Convert.ToSingle(TextBox1.Text) ' 106%
  2. Dim start_muny As Single = Convert.ToSingle(TextBox2.Text)
  3. Dim months As single = Convert.ToSingle(TextBox3.Text)
  4. Dim muny_interest As Single = start_muny*interestRate/(1-(1+interestRate)^(-months))
  5. TextBox4.Text = Convert.ToString(muny_interest)
  6. TextBox5.Text = Convert.ToString(start_muny+muny_interest)
Advertisement
Add Comment
Please, Sign In to add comment