excel中实现x的四舍六入五成双到小数点n位的办法
admin 96 2024-06-10 编辑
可以在excel中建立宏，然后输入以下程序：
Function Roundx(x, n)
y = x * 10 ^ n - Int(x * 10 ^ n)
z = Int(x * 10 ^ n)
If y >= 0.6 Then
p = (Int(x * 10 ^ n) + 1) / 10 ^ n
ElseIf y < 0.5 Then
p = Int(x * 10 ^ n) / 10 ^ n
ElseIf z / 2 = z \ 2 Then
p = Int(x * 10 ^ n) / 10 ^ n
ElseIf z / 2 <> z \ 2 Then
p = (Int(x * 10 ^ n) + 1) / 10 ^ n
End If
Roundx = p
End Function
当n为正，则为小数点之后,n为负，则小数点之前。
标签：
相关文章
