LParameters ttDatetime Local lnDay, lnHour, lnMin, lnMonth, lnSec, lnYear lnYear = Year(ttDatetime) lnMonth = Month(ttDatetime) lnDay = Day(ttDatetime) lnHour = Hour(ttDatetime) lnMin = Minute(ttDatetime) lnSec = 0 *-- get nearest 15 minutes lnMin = Round(lnMin/15,0)*15 If lnMin = 60 lnMin = 0 lnHour = lnHour + 1 If lnHour = 24 lnHour = 0 lnDay = lnDay + 1 EndIf EndIf Return Datetime(lnYear, lnMonth, lnDay, lnHour, lnMin, lnSec)