# Easy Overtime Calculation Not Working for Me?

• 02-21-2012, 03:26 PM
j0hnx777
Easy Overtime Calculation Not Working for Me?
Hi, I am trying to get this pay rate calculator to work. The language is visual basic, but the problem I think is either the way I set it up and/or the arithmatic. It should calculate the number of hours times the pay rate of an employee. It should also calculate overtime if an employee has worked over 40 hours that they should be paid time and a half. For some reason, the calculation is wrong and I can't figure it out. If I put the pay rate was \$10 and the hours were 41, I get an answer of \$425. The result should be \$415. I would appreciate any help. Not sure what's happening here but here is my code

Code:

```Public Class Form1     Private Sub calc_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles calc.Click         Dim number1 As Integer         Dim number2 As Integer         Dim overtime As Integer         Dim total As Integer         number1 = TextBox1.Text         number2 = TextBox2.Text         total = number1 * number2         overtime = ((number1 - 40) * (number2 * 1.5)) + total         If number1 > 40 Then             result.Text = "Your total pay is " & overtime         End If         If number1 <= 40 Then             result.Text = "Your total pay is " & total         End If     End Sub End Class```
• 02-21-2012, 05:51 PM
nojtb
Code:

```        number1 = 41         number2 = 10         total = 41 * 10 //410         overtime = ((41 - 40) * (10* 1.5)) + total // 1 * 15 + 410 = 425```