标题: 请教函数应用 [打印本页] 作者: 我要飞 时间: 2002-6-30 01:03 标题: 请教函数应用 文件下载
以上是一个应用于关于计量认证中小数点后有效位数的取舍函数，我第一次写函数，不知如何使用，请大家告诉我如何调用此函数。
谢谢！！！！！！！！！作者: 我要飞 时间: 2002-6-30 05:27 文件下载
前函数有错误!,请大家帮忙！！！ 作者: cattjiu 时间: 2002-6-30 05:54
把程序直接贴来吧我不能随意安装软件（解压）作者: 我要飞 时间: 2002-6-30 16:59
不好意思，给您添麻了！，一下是我的函数，请指教！！！
Function cmcrnd(anumber As Integer) As Integer
anumber = Int(anumber * 10 ^ 6) / 10 ^ 6
Dim a, n As Integer
Dim a1 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
[此贴子已经被作者于2002-6-30 8:58:48编辑过]
作者: cattjiu 时间: 2002-6-30 19:20
将函数存于模块里-->保存-->调用跟使用其他函数一样，只是函数不是内部函数，是本数据库的函数。
函数可以运行，但不知道你想要什么结果，需要用例子测试。
Public Function cmcrnd(anumber As Integer) As Integer
anumber = Int(anumber * 10 ^ 6) / 10 ^ 6
Dim a, n As Integer
Dim a1 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 作者: 我要飞 时间: 2002-7-1 17:21
为何在窗体或报表中用“me.txt1.value=cmcrnd(me.txt1.value)”确告知不是模块？
ni是怎么调用的，请指点！！！ 作者: cattjiu 时间: 2002-7-1 19:40
不能用自己=函数（自己）
我不能随意安装软件（解压）