AccessとExcel/AccessでRoundUp関数

Excel.Application.RoundUP ・・・・　ってのもありでしょうが、参照設定をいじるのでつくってみました。

Function RoundUp(i As Double, Optional keta As Integer = 0) As Double

   i = i * Int(10 ^ keta)

   '0にならないケースに配慮。指定桁数から10桁以上少ない誤差がでるなら無視
   If Abs(i - Fix(i)) <= 1 / 10 ^ (keta + 10) Then
       RoundUp = int(i) / Int(10 ^ keta)
   Else
       RoundUp = Int(Abs(i) + 1) * (i / Abs(i)) / Int(10 ^ keta)
   End If

End Function

小数点の小さい誤差は　致し方なしか？　エクセルでも似たような現象はあるし