Overtime Calculation?

[Suidae]

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

Thanks!

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

[Mr.No]

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

[MarkT]

How about this?

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

[Shawn N]

Originally posted by MarkT
How about this?

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

[MarkT]

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

Yes that is right!