Office中国论坛/Access中国论坛

标题: 关于四舍五入的问题 [打印本页]

作者: XWQ2000 时间: 2006-5-29 16:58
标题: 关于四舍五入的问题
关于四舍五入的问题

我在网上找到一个关于四舍五入的代码，但由于本人太菜不知道怎么使用，不知那位能帮帮我

Public Function cmcrnd(anumber As Double) As Double
anumber = Int(anumber * 10 ^ 6) / 10 ^ 6
Dim a As Double
Dim a1, n As Byte
Dim t As String
n = 0
a = anumber
t = Mid(Trim(Str(FORMatNumber(a - Int(a), 4, , , vbUseDefault))), 2)

For a1 = 1 To 4
If Mid(t, a1, 1) <> "0" Then
Exit For
Else: n = n + 1
End If
Next </P><

>If Eval(Right(Str(Int(a * 1000 * 10 ^ n)), 1)) > 5 And Eval(Right(Str(Int(a * 100000)), 2)) > 0 Then
a = Int(a * 100 * 10 ^ n + 1) / (100 * 10 ^ n)
Else:
If Eval(Right(Str(Int(a * 1000 * 10 ^ n)), 1)) = 5 Then
If Eval(Right(Str(Int(a * 100 * 10 ^ n)), 1)) Mod 2 = 0 Then
a = Int(a * 100 * 10 ^ n) / (100 * 10 ^ n)
Else: a = Int(a * 100 * 10 ^ n + 1) / (100 * 10 ^ n)
End If
Else: a = Int(a * 100 * 10 ^ n) / (100 * 10 ^ n)
End If
End If

Select Case no
Case 1
a = FORMatNumber(a, 3)
Case 2
a = FORMatNumber(a, 4)
Case 3
a = FORMatNumber(a, 5)
End Select
cmcrnd = a
End Function

作者: 一点通 时间: 2006-5-29 17:01
保存到模块里,象普通函数一样调用

作者: XWQ2000 时间: 2006-5-29 17:02
我是这样做得

但我不知道怎么调用

作者: 一点通 时间: 2006-5-29 17:15
你提供的代码有错误,可参照一下这个例子

http://www.office-cn.net/vvb/dispbbs.asp?BoardID=150&replyID=96879&id=19438&skin=0

作者: XWQ2000 时间: 2006-5-29 17:28

专用与计量认证的数据处理。

规则：1 保留小数点后两位有效数字（以小数点后，第一个非零数算起两位数字）
　　　2 四舍六入五奇偶：“五奇偶”是指第三位有效数为5时，要看第二位的奇偶属性
　　　　奇数进，偶数舍
举例：11.00155 ----> 11.0016
　　　11.00165 ----> 11.0016
　　　11.135　 ----> 11.14
　　　11.500　 ----> 11.50
　　　11.550　 ----> 11.55
　　　11.56001 ----> 11.56　 *只要有非零尾数，无论奇偶都要进位
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
Public Function cmcrnd(anumber As Double) As Double
anumber = Int(anumber * 10 ^ 6) / 10 ^ 6
Dim a As Double
Dim a1, n As Byte
Dim t As String
n = 0
a = anumber
t = Mid(Trim(Str(FORMatNumber(a - Int(a), 4, , , vbUseDefault))), 2)

For a1 = 1 To 4
If Mid(t, a1, 1) <> "0" Then
Exit For
Else: n = n + 1
End If
Next

If Eval(Right(Str(Int(a * 1000 * 10 ^ n)), 1)) > 5 And Eval(Right(Str(Int(a * 100000)), 2)) > 0 Then
a = Int(a * 100 * 10 ^ n + 1) / (100 * 10 ^ n)
Else:
If Eval(Right(Str(Int(a * 1000 * 10 ^ n)), 1)) = 5 Then
If Eval(Right(Str(Int(a * 100 * 10 ^ n)), 1)) Mod 2 = 0 Then
a = Int(a * 100 * 10 ^ n) / (100 * 10 ^ n)
Else: a = Int(a * 100 * 10 ^ n + 1) / (100 * 10 ^ n)
End If
Else: a = Int(a * 100 * 10 ^ n) / (100 * 10 ^ n)
End If
End If

Select Case no
Case 1
a = FORMatNumber(a, 3)
Case 2
a = FORMatNumber(a, 4)
Case 3
a = FORMatNumber(a, 5)
End Select
cmcrnd = a
End Function

能告诉我这段代码错在那里吗

[此贴子已经被作者于2006-5-29 9:32:59编辑过]

作者: nxjswt 时间: 2006-6-7 07:57
应该是，要编译代码，才能发现错误

Public Function cmcrnd(anumber As Double) As Double
anumber = Int(anumber * 10 ^ 6) / 10 ^ 6
Dim a As Double
Dim a1, n As Byte
Dim t As String
n = 0
a = anumber
t = Mid(Trim(Str(FormatNumber(a - Int(a), 4, , , vbUseDefault))), 2)

For a1 = 1 To 4
If Mid(t, a1, 1) <> "0" Then
Exit For
Else: n = n + 1
End If
Next

If Eval(Right(Str(Int(a * 1000 * 10 ^ n)), 1)) > 5 And Eval(Right(Str(Int(a * 100000)), 2)) > 0 Then
a = Int(a * 100 * 10 ^ n + 1) / (100 * 10 ^ n)
Else:
If Eval(Right(Str(Int(a * 1000 * 10 ^ n)), 1)) = 5 Then
If Eval(Right(Str(Int(a * 100 * 10 ^ n)), 1)) Mod 2 = 0 Then
a = Int(a * 100 * 10 ^ n) / (100 * 10 ^ n)
Else: a = Int(a * 100 * 10 ^ n + 1) / (100 * 10 ^ n)
End If
Else: a = Int(a * 100 * 10 ^ n) / (100 * 10 ^ n)
End If
End If

Select Case n
Case 1
a = FormatNumber(a, 3)
Case 2
a = FormatNumber(a, 4)
Case 3
a = FormatNumber(a, 5)
End Select
cmcrnd = a
End Function

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)