请教四舍五入、五舍六入、四舍六入五成双的函数！

aoe1981

对于进位的方法，按一定的顺序有：去尾法（这个应当是INT函数吧，但没试过负数时如何处理）、四舍五入（Round）、四舍六入五成双、五舍六入、进一法，这些分别都有Excel函数吗？如果有的话使用可方便了。。。

jsxjd

没有现成的

aoe1981

jsxjd 发表于 2014-1-15 18:43
没有现成的

要是有公开的Round函数代码就好了，应该很容易改一下的。。。。呵呵，也想用INT加个0.6的先实现个五舍六入啥的，但又发现，不够智能，位数是死的，不能变啊。。。

jsxjd

0.4吧？
+4/10^N

天雨逸鸿

四舍六入五成双、五舍六入、都没得，还得自己弄哦，

aoe1981

天雨逸鸿 发表于 2014-1-15 19:02
四舍六入五成双、五舍六入、都没得，还得自己弄哦，

那有没有Round函数的代码。。。。。不会是版权保护吧。。

看见星光

楼主的头像把我笑到喷了，哈哈。

aoe1981

看见星光 发表于 2014-1-15 22:17
楼主的头像把我笑到喷了，哈哈。

笑了就好，别喷。。。。。。呵呵

aoe1981

　　呵呵，闲来头脑清醒，解决了进位的几个问题。现把代码帖出来，大家检查下，还望不吝赐教！
Option Explicit

Public Function qw(num As Double, Optional ws As Integer = 0) '去尾法
qw = Int(num * 10 ^ ws) / 10 ^ ws
End Function

Public Function s4r5(num As Double, Optional ws As Integer = 0) '四舍五入
s4r5 = Int(num * 10 ^ ws + 0.5) / 10 ^ ws
End Function

Public Function s4r6ou5(num As Double, Optional ws As Integer = 0) '四舍六入五成双
Dim wszgw%, blzdw% '尾数最高位，保留最低位
wszgw = Right(Int(num * 10 ^ (ws + 1)), 1)
blzdw = Right(Int(num * 10 ^ (ws)), 1)
If wszgw <= 4 Then
    s4r6ou5 = Int(num * 10 ^ ws) / 10 ^ ws
ElseIf wszgw >= 6 Then
    s4r6ou5 = Int(num * 10 ^ ws + 1) / 10 ^ ws
ElseIf blzdw Mod 2 = 0 Then
    s4r6ou5 = Int(num * 10 ^ ws) / 10 ^ ws
Else
    s4r6ou5 = Int(num * 10 ^ ws + 1) / 10 ^ ws
End If
End Function

Public Function s5r6(num As Double, Optional ws As Integer = 0) '五舍六入
s5r6 = Int(num * 10 ^ ws + 0.4) / 10 ^ ws
End Function

Public Function jy(num As Double, Optional ws As Integer = 0) '进一法
If Int(num * 10 ^ ws) = num * 10 ^ ws Then
    jy = Int(num * 10 ^ ws) / 10 ^ ws
Else
    jy = Int(num * 10 ^ ws + 1) / 10 ^ ws
End If
End Function

aoe1981

请教方家，论坛发贴在什么时间段内是可以编辑的？现在才发现原贴是不能编辑了。。。