请问高手!!如何编写自定义函数??我是新手,请多指教!!谢谢!!

jihuali00

如何在数据库中编写自定义函数??过程是怎么做的???[em04]

海狸先生

如果要所有的项目都可以引用你这个函数那么在公共模块中写　（代码编辑器里，插入－模块）Function 语句示例

该示例使用 Function 语句来声明 Function 过程的名称、参数、以及构成 Function 过程主体的代码。最后一个例子中使用了确定类型的、初始化的 Optional 参数。'下面的用户自定义函数返回

'它的参数的平方根。

Function CalculateSquareRoot(NumberArg As Double) As Double

    If NumberArg < 0 Then    '评估参数。

        Exit Function    '退出调用过程。

    Else

        CalculateSquareRoot = Sqr(NumberArg)    '返回平方根。

    End If

End Function使用 ParamArray 关键字可以使函数接收数目可变的参数。在下面的定义中，FirstArg 是按值传递的。Function CalcSum(ByVal FirstArg As Integer, ParamArray OtherArgs())

Dim ReturnValue

'如果用如下代码调用该函数：

ReturnValue = CalcSum(4, 3 ,2 ,1)

'则局部变量被赋予以下值：FirstArg = 4，

'OtherArgs(1) = 3，OtherArgs(2) = 2，等等。

'假设缺省数组下界 = 1。Optional 参数可以带缺省值，可以是除 Variant 之外的任何类型。'如果函数的参数定义如下：

Function MyFunc(MyStr As String, Optional MyArg1 As _ Integer = 5, Optional MyArg2 = "Dolly")

Dim RetVal

'则可用如下代码调用该函数：

RetVal = MyFunc("Hello", 2, "World")    '提供了所有 3 个参数。

RetVal = MyFunc("Test", , 5)    '省略了参数 2。

'参数 1 和参数 3 使用了命名的参数。

RetVal = MyFunc(MyStr:="Hello ", MyArg1:=7)

jihuali00

[em01]多谢高手指点!!谢过了!!!