Rounding Up Or Down Time to 15 Minute Intervals

[Ark68]

I'm looking for a vba solution to round up or down a time to the nearest 15 minutes.

If a time is between 0 and 6 minutes then the time will be h:00.
If a time is between 7 and 15 minutes then the time will be h:15.
If a time is between 16 and 22 minutes then the time will be h:15.
If a time is between 23 and 30 minutes, then the time will be h:30.
If a time is between 31 and 37 minutes, then the time will be h:30.
If a time is between 38 and 45 minutes, then the time will be h:45.
If a time is between 46 and 52 minutes, then the time will be h:45.
If a time is between 52 and 59 minutes, then the time will be h+1:00.

variable ssoff represents the time.

Example:
ssoff = 8:09 PM
after new code adjust as above,
ssoff= 8:15 PM.

Thoughts?

 

[6StringJazzer]

=MROUND(E1,1/(24*4))

where E1 is a cell that contains a TIME value.

EDIT: Sorry, just saw that you wanted VBA.

Dim ssoff As Double

ssoff = Application.WorksheetFunction.MRound(ssoff, 1 / (24 * 4))

 

[Ark68]

Thank you Jeff. So far it's doing the trick.