TimeRound関数が使えない

会社のPCも私のPCもAccessのバージョンが古くて使えない関数が多いのです。
※自宅PCは会社のバージョンに極力あわせているので・・・

TimeRound関数もエラーになりますた。（号泣）
なので、時間を『時』と『分』に分解して　『分』を丸める計算をし　『時』と『丸めた分』を再合体させることにしました。
力技でねじ伏せるのだ。


たとえば　AさんからUさんまでの時間があるとして　その時間を10分で丸めたいとします。
◆10分未満は切り捨てて10分単位で表示したい。


時間から『時』を取り出す・・・時: Hour([時間])
時間から『分』を取り出す・・・分: Minute([時間])
『分』を10分で丸める・・・10分で丸め: Int([分]/10)*10
『時』と『10分で丸め』を再合体・・・再合体: TimeSerial([時],[10分で丸め],0)



↓結果



◆15分未満だったら切り捨て15分以上だったら切り上げ30分単位で丸める場合
『分』を15分で切捨切上30分単位・・・15分で切捨切上: Int(([分]+15)/30)*30


結果↓



◆3分未満だったら切り捨て3分以上だったら切り上げ5分単位で丸める場合
『分』を3分で切捨切上5分単位・・・3分で切捨切上: Int(([分]+2)/5)*5


結果↓