修约还是有点小问题128.5修约到整数，应该是128，变成129了！！

张劲松2024

Function shzxy1(x)

      x1 = InStr(CStr(x), ".") '小数点在字符串中的位置
      x2 = Int(x) '取整
      x3 = Mid(x, x1 + 1, 1) '拟取舍数字
      x4 = Mid(x, x1 - 1, 1) ''拟取舍数字前一位
      x5 = x - x2 - 0.5 '拟取舍数字位5后的数值
      If (x3 < 5) Then x = x2
      If (x3 > 5) Then x = x2 + 1
      If (x3 = 5) And x5 <> 0 Then x = x2 + 1
      If (x3 = 5) And x5 = 0 And x4 / 2 = 0 Then x = x2
      If (x3 = 5) And x5 = 0 And x4 / 2 <> 0 Then x = x2 + 1
      shzxy1 = x
End Function
128.5修约到整数变成129了！！

张劲松2024

已改过来了

Function shzxy1(x)

      x1 = InStr(CStr(x), ".") '小数点在字符串中的位置
      x2 = Int(x) '取整
      x3 = Mid(x, x1 + 1, 1) '拟取舍数字
      x4 = Mid(x, x1 - 1, 1) ''拟取舍数字前一位
      x5 = x - x2 - 0.5 '拟取舍数字位5后的数值
      If (x3 < 5) Then x = x2
      If (x3 > 5) Then x = x2 + 1
      If (x3 = 5) And x5 <> 0 Then x = x2 + 1
      If (x3 = 5) And x5 = 0 And x4 Mod 2 = 0 Then x = x2
      If (x3 = 5) And x5 = 0 And x4 Mod 2 <> 0 Then x = x2 + 1
      shzxy1 = x
End Function

ykcbf1100

不用搞那么复杂吧

张劲松2024

谢谢回复！！！！！！！！！！！！！！！！！！！！！

wanghan519

张劲松2024 发表于 2024-1-2 14:54
谢谢回复！！！！！！！！！！！！！！！！！！！！！

呃，好像cdec之后round就是这个效果。。。

张劲松2024

round个别情况修约结果不对！！！我试过了

wanghan519

张劲松2024 发表于 2024-1-2 15:23
round个别情况修约结果不对！！！我试过了

试一下round(cdec(数))吧

张劲松2024

cdec提示未定义，可能我的版本太低了！

yynrzwh

有效数字的自定义函数

Function cround(c, d%)
Rem 本代码实现了按四舍六入五留双的规则，保留指定位数的有效数字。
Rem 本代码的思路是将原始数据分为大于或小于1的两种情况，再分别进行处理。
Rem 小于1的处理代码结果是完美的，代码也简明易懂。
Rem 原始数据大于1的话，先将它除以适宜的倍数，使其刚好小于1，再借助小于1的处理代码进行处理。

Dim p As Integer

cc = CDec(c) '转换为实数，如无此语句，在引用单元格时会出错，如：cround(A1/A2,1)
If d = 0 Then cround = c: Exit Function
If cc < 1 And Abs(cc) < 1 Then  '加了“And Abs(cc) < 1”的判断，就可以正确处理负数了。

    cc1 = Split(cc, ".")(1) '按“.”对字符串进行分割，取第二个字符串，如：0.0035，分割为0和0035，这里取0035
   
    p = Len(cc1) - Len(cc1 * 1)  'cc*1后转换为数字，如：0035*1＝35，p即为小数点后“0”的个数（非零数字后的零不算）。
  
    cround = VBA.Round(cc, d + p)   '使用VBA中的round函数（即四舍六入五留双）进行修约。
   
Else
    cc1 = Split(cc, ".")(0) * 1 '按“.”对字符串进行分割，取第一个字符串，如：10.0035，分割为10和0035，这里取10
   
    m = Len(Abs(cc1))    '记录整数部分的字符长度。
   
    cc2 = cc / (10 ^ m)  '将原大于1的原始数据除以倍数值，转换成刚好小于1的数据，然后用前面小于1的代码进行处理。
   
    cc3 = Split(cc2, ".")(1) '这里的代码实际上同小于1的处理代码。
   
    p = Len(cc3) - Len(cc3 * 1)

    cround = VBA.Round(cc2, d + p) * (10 ^ m)   '将结果乘以原来的倍数值，返回原始的数位。
        
End If
End Function

张劲松2024

谢谢yynrzwh!!!!!!!!!!!!!!!!!!!!!!!