Nearest quarter hour

[Al Smith]

Hi,

In the code below, LaborHours is a text box on the form.
Is there a better way to do this?

If LaborHours - Int(LaborHours) <> Abs(0) And _
   LaborHours - Int(LaborHours) <> Abs(0.25) And _
   LaborHours - Int(LaborHours) <> Abs(0.5) And _
   LaborHours - Int(LaborHours) <> Abs(0.75) Then
    MsgBox ("Labor Hours must be to the nearest 1/4 hour.")
End If

Thanks,
Al.

[Blade]

Hi,
One way could be....

Select Case Right$(Format$(LabourHours,"0.00"),2)
  Case "00","25","50","75"
    Msgbox "OK"
  Case Else
    Msgbox "Not to nearest 1/4 hour"
End Select

Although I'm sure there may be better solutions out there!!

Blade

[ae_jester]

You could just mutiply the labour hours by 4 and check if its a whole number :-)