Finding weekly pay, overtime hours worked? What's wrong with the code?

[phroxy]

So basically hour teacher gave us the private sub, and we had to do the rest from there. For the interface it's the user inputting their hours worked, and their hourly pay. They click a button, then in two textboxes it shows their overtime hours worked, and week's pay.

For example:
Input
Hours worked: 42
Hourly Pay: 10.00
Press Button
Output
Overtime Hours worked: 2
Week's Pay: $430.00


I can't find out what's wrong with my code, any help is appreciated!!

Private Sub btnCompute_Click(sender As Object, e As EventArgs) Handles btnCompute.Click
        Dim hours, payPerHour, overtimeHours, pay As Double
        InputData(hours, payPerHour)
        CalculateValues(hours, payPerHour, overtimeHours, pay)
        DisplayData(overtimeHours, pay)
    End Sub

    Sub InputData(ByVal hours As Double, ByVal payPerHour As Double)
        hours = CDbl(txtHoursWorked.Text)
        payPerHour = CDbl((txtHourlyPay.Text))
    End Sub

    Sub CalculateValues(ByVal hours As Double, ByVal payPerHour As Double, ByVal overtimeHours As Double, ByVal pay As Double)
        If hours <= 40 Then
            overtimeHours = 0
        Else
            overtimeHours = hours - 40
        End If
        pay = (((overtimeHours * payPerHour) * 1.5) + (hours * payPerHour))
    End Sub

    Sub DisplayData(ByVal overtimeHours As Double, ByVal pay As Double)
        txtOvertime.Text = CStr(overtimeHours)
        txtWeeksPay.Text = CStr(pay.ToString("C"))
    End Sub

[.paul.]

Sub InputData(ByRef hours As Double, ByRef payPerHour As Double)

Sub CalculateValues(ByVal hours As Double, ByVal payPerHour As Double, ByRef overtimeHours As Double, ByRef pay As Double)

http://msdn.microsoft.com/en-gb/library/c84t73c2.aspx

[phroxy]

Oh awesome, simple fix, thanks a lot! Works fine now

[Atenk]

You still have an error. Pay receives 450 instead of 430
CalculateValues should be like this:

  Sub CalculateValues(ByVal hours As Double, ByVal payPerHour As Double, ByRef overtimeHours As Double, ByRef pay As Double)
        If hours <= 40 Then
            overtimeHours = 0
        Else
           overtimeHours = hours - 40
            hours = hours - overtimeHours
        End If
        pay = (((overtimeHours * payPerHour) * 1.5) + (hours * payPerHour))
    End Sub

[.paul.]

I'd use Atenk's code, but modify it slightly:

overtimeHours = math.max(0, hours - 40)