>>514
> これの秒を00に書き換えたいのですが
dim i as date
i=timeserial(1,16,18)
i=getHourMinute(i)

function getHourMinute(byval d as date) as date
getHourMinute=timeserial(hour(d),minute(d),0)
end function

> 後々 i + #12:01:00 AM# > time の処理
まさかこのままじゃないよな？
double型の演算になるはずだから、精度が犠牲になるかも知れんぞ？
if datediff("s",i+#12:01:00 AM#,time)>0 then ...
か？