- ベストアンサー
ACCESS VBA 四捨五入？？
小数点以下の四捨五入みたいな計算をしたい １８９．４５ → １８９．０ １１５．６２ → １１５．５ 小数第一位が５以下なら０、 小数第一位が５以上なら５ にしたいのですが、どのようにすれば良いですか？ 宜しくお願いします
- yuyu4247
- お礼率33% (31/92)
- その他([技術者向] コンピューター)
- 回答数1
- ありがとう数2
- みんなの回答 （1）
- 専門家の回答
質問者が選んだベストアンサー
希望の処理は、次のように A が B になります。 B = Int( A * 2 ) / 2 細かいこというと 「小数第一位が５以下」でなく「小数第一位が５未満」 で、ちょうど .5 のときはそのままでないと。 次のように関数定義してもいいでしょう。 (バージョンによって少し書式が違うかもしれません) Function Rint5 (ByVal A As Variant) As Variant Rint5 = Int( A * 2 ) / 2 End Function
お礼
大変ありがとうございます 思う通りの結果になりました