[AccessD] Rounding time

jwcolby jwcolby at colbyconsulting.com
Sun Nov 14 20:05:44 CST 2010


'
'1440
'____ = 5 minute round
'X
Function RoundTime(vRoundTime As Date) As Date
'Const cintMult As Integer = 96 '15 minute round
'Const cintMult As Integer = 144 '10 minute round
Const cintMult As Integer = 288 '5 minute round
     RoundTime = CVDate(Int(vRoundTime * cintMult + 0.5) / cintMult)

End Function


-- 
John W. Colby
www.ColbyConsulting.com



More information about the AccessD mailing list