Tek-Tips is the largest IT community on the Internet today!
Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!
-
Congratulations SkipVought on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!
Is there any rounding format for time?
- Thread starter fuyu
- Start date
Not that I know of. It wouldn't be too hard to build your own (or roll your own if you are a child of the '70s)
Function RoundTime(myTime as Date) as Date
dim intMin as integer
intMin = Minute(myTime)
if intMin <15 then
RoundTime=dateAdd("n",-intMin,mytime)
elseif intMin>=15 or intMin<30 then
RoundTime=dateAdd("n",30-intMin,mytime)
elseif intMin>30 or intMin<=45 then
RoundTime=dateAdd("n",-(intMin-30),mytime)
elseif intMin > 45 then
RoundTime=dateAdd("n",60-intMin,mytime)
end if
end function
That's OTOMH, so it may have errors, but it should get you started. Kathryn
Function RoundTime(myTime as Date) as Date
dim intMin as integer
intMin = Minute(myTime)
if intMin <15 then
RoundTime=dateAdd("n",-intMin,mytime)
elseif intMin>=15 or intMin<30 then
RoundTime=dateAdd("n",30-intMin,mytime)
elseif intMin>30 or intMin<=45 then
RoundTime=dateAdd("n",-(intMin-30),mytime)
elseif intMin > 45 then
RoundTime=dateAdd("n",60-intMin,mytime)
end if
end function
That's OTOMH, so it may have errors, but it should get you started. Kathryn
- Status
Similar threads
- Locked
- Question
- Locked
- Question