非ACCESS环境处理空值——自定义NZ函数

smileyoufu

     有时候ACCESS中写的一些通用函数/过程可以移植到EXCEL和VB中使用，但如果在函数/过程中使用了NZ函数的话，就会出现麻烦，因为VB和EXCEL是没有NZ函数的，除了修改代码，那该怎么办呢？
    当然是先百度一下……
    百度也没好方法，那就自己动手编写一个自定义的NZ函数来替代吧。
'函 数 名：NZ
'函数作用：在EXCEL或者VB中替代Access中的NZ函数，而无需修改原通用模块
'作      者：席主习
'创建日期：2014-1-17
'注意事项：作者编写此函数时，主要是为处理文本和数字使用，其它类型数据未作测试。请根据实际需求测试后使用。-17
Public Function NZ(varValue As Variant, Optional varValueIfNull As Variant = "") As Variant
    If Len(varValue) = 0 Then
        If Len(varValueIfNull) = 0 Then
            varValue = ""
        Else
            varValue = varValueIfNull
            NZ = varValue
        End If
    Else
        NZ = varValue
    End If
End Function
'调用示例：
Sub test()
    Dim a As Variant
    a = NZ(a, 0)
    Debug.Print "OUT:"; a
End Sub
'限于作者水平，该函数可能编写不完美，请看客予以斧正。

tmtony

赞一个, 主席难得发贴哦.
我也做了一个, 不如你这个, 先收藏了.

ui

Good!!

smilingkiss

开眼界了^_^

LeeTien

这个是要单独的，如果想方便些，可以将常用的函数做成动态链接库

zhuyiwen

不知是否能在SQL语句中使用？