测量进位规则怎么用vba编写 小数点后5位遇5时看第4位，奇进偶不进，其他根据四舍五...

cji123

测量进位规则四舍六入 奇进偶不进意思就是小数点后5位遇5时看第4位，奇进偶不进，其他正常四舍五入...怎么用vba编写 比如47.98985、47.98975时保留小数点后4位，四舍六入 奇进偶不进 保留小数点后4位后变成47.9898和47.9898；再就是47.98986和47.98976时正常四舍五入..求大师帮忙编写一个，小白新手 谢谢了

高个子

VBA的round函数就是四舍六入五成双的规则

1. =roundk(ROUND(F4,8),4)

复制代码

g4的公式

1. Function roundk(x As Double, n As Integer)
   
2.     roundk = Round(x, n)
   
3. End Function
   

复制代码

shiruiqiang

判断right（f列，1）是否=5，是的话判断MID(f列,LEN(f列)-1,1) mod 2 ，=1的话加上去MID(f列,1，LEN(f列)-1）+0.0001

cji123

shiruiqiang 发表于 2023-6-7 10:22
判断right（f列，1）是否=5，是的话判断MID(f列,LEN(f列)-1,1) mod 2 ，=1的话加上去MID(f列,1，LEN(f列)-1 ...

谢谢，没太明白 还希望直接给个公式

cji123

高个子 发表于 2023-6-7 10:14
VBA的round函数就是四舍六入五成双的规则
g4的公式

谢谢，但在47.99025时它会进位成47.9903 但跳过47.99025时，比如47.99045时它又不会进位还是47.9904？？现在就是很奇怪

grf1973

就按规则一步一步来呗

sdytsxd991122

参与一下

高个子

cji123 发表于 2023-6-7 16:29
谢谢，但在47.99025时它会进位成47.9903 但跳过47.99025时，比如47.99045时它又不会进位还是47.9904？？ ...

可能真的是浮点问题，有些浮点round都解决不了的，还是按照6楼7楼来一个个判断吧。。

cji123

grf1973 发表于 2023-6-7 16:30
就按规则一步一步来呗

我先用着测下，万分感谢大师

高个子

1. =roundk(F4,4)

复制代码

1. Function roundk(x As Double, n As Integer)
   
2.     roundk = Round(CDec(x), n)
   
3. End Function

复制代码

你试试看这个