Nearest quarter hour

Hi,

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

Code:

---

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.

Hi,
One way could be....

VB Code:

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!! :rolleyes:

Blade

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