Overtime Calculation?

Can this routine be done more efficiently? If so how?

Thanks!

VB Code:

Private Sub Command1_Click()
    
    Dim Hours As Double ' Number of Hours Worked
    Dim Th As Double 'OverTime
    Dim Dt As Double 'DoubleTime
    
    Dim Base As Currency 'Employee's Base Hourly Base Rate
    Dim Net As Currency ' Employee's Net Payroll Amount
    
    Hours = Val(txtHours.Text) ' Hours Worked
    Base = 10 ' Employee Hourly Rate
    
 
    If Hours <= 40 Then
        Net = (Hours * Base)
    ElseIf (Hours >= 40.01) And (Hours <= 60) Then
        Th = (Hours - 40)
        Net = (40 * Base) + (Th * Base * 1.5)
    ElseIf Hours >= 60.01 Then
        Dt = (Hours - 40 - 20)
        Net = (40 * Base) + (20 * Base * 1.5) + (Dt * Base * 2)
    End If
    
    txtNet.Text = Net
    
End Sub

Well to begin with you could round your final result. And secondly I would localise the calculation of the overtime into a class.

How about this?

VB Code:

Private Sub Command1_Click()
Dim Hours As Double ' Number of Hours Worked
Dim Th As Double 'OverTime
Dim Dt As Double 'DoubleTime
    
Dim Base As Currency 'Employee's Base Hourly Base Rate
Dim Net As Currency ' Employee's Net Payroll Amount
    
Hours = Val(txtHours.Text) ' Hours Worked
Base = 10 ' Employee Hourly Rate
    
    Select Case Hours
        Case Is > 60
            Net = (40 * Base) + (20 * (Base * 1.5)) + ((60 - Hours) * (2 * Base))
        Case Is > 40
            Net = (40 * Base) + ((Hours - 40) * (Base * 1.5))
        Case Else
            Net = Hours * Base
    End Select
 
    txtNet.Text = Net
    
End Sub

Quote:

Originally posted by MarkT
How about this?

VB Code:

Private Sub Command1_Click()
Dim Hours As Double ' Number of Hours Worked
Dim Th As Double 'OverTime
Dim Dt As Double 'DoubleTime

Dim Base As Currency 'Employee's Base Hourly Base Rate
Dim Net As Currency ' Employee's Net Payroll Amount

Hours = Val(txtHours.Text) ' Hours Worked
Base = 10 ' Employee Hourly Rate

Select Case Hours
Case Is > 60
Net = (40 * Base) + (20 * (Base * 1.5)) + (([color="#FF0000"]Hours - 60[/color]) * (2 * Base))
Case Is > 40
Net = (40 * Base) + ((Hours - 40) * (Base * 1.5))
Case Else
Net = Hours * Base
End Select

txtNet.Text = Net

End Sub

Quote:

Originally posted by Shawn N
Net = (40 * Base) + (20 * (Base * 1.5)) + ((Hours - 60 ) * (2 * Base))

Yes that is right!