'自定义四舍五入函数
'示例: A = 四舍五入(1.125, 2) 返回:1.13
Public Function 四舍五入(源数据 As Currency, 小数位数 As Integer) As Currency
'由于 源数据 的数据类型声明和 返回值 的数据类型声明,所以小数最多定义到4位
四舍五入 = Fix((源数据 + Sgn(源数据) * 0.5 / 10 ^ 小数位数) * 10 ^ 小数位数) / 10 ^ 小数位数
End Function
Access软件网交流QQ群(群号:198465573) |