小数点以下を取得するVBA−INT・TRUNC・MOD関数 http://vba-auto.com/shousuutennikawoshutoku/

63T