VBA基础
自定义自四舍五入函数
2004-11-23 18:39:27
'自定义自四舍五入函数'解决ACCESS97以下版本不支持Round函数'解决Round"有名"的四舍六入现象
'参数: Number , 要进入四舍五入的数值'参数:N,要保留的小数位数,不足时以0补上
'用法:'Print myRound(1.4367, 2)'1.44Function myRound(Number As Double, N As Integer) As String myRound = Format(Int(Number * (10 ^ N) + 0.5) / (10 ^ N), "0." & String(N, "0"))End Function