Function QuarterRound(timValue) As Single

 intHour = Hour(timValue)
 sngMinute = Minute(timValue) / 60

 If sngMinute > 0.75 Then 
 QuarterRound = intHour + 1 
 Exit Function 
 End If

 If sngMinute > 0.5 Then 
 QuarterRound = intHour + 0.75 
 Exit Function 
 End If

 If sngMinute > 0.25 Then 
 QuarterRound = intHour + 0.5 
 Exit Function 
 End If

 If sngMinute > 0 Then 
 QuarterRound = intHour + 0.25 
 Else: QuarterRound = intHour 
 End If

End Function