非Access环境使用——自定义NZ函数-福哥
Access软件网QQ交流学习群(群号码198465573),欢迎您的加入!
首页 >技术文章> Access数据库-模块/函数/VBA


非Access环境使用——自定义NZ函数

发表时间:2014/1/21 10:20:39 评论(1) 浏览(7322)  评论 | 加入收藏 | 复制
   
摘 要:非Access环境使用——自定义NZ函数
正 文:

     有时候ACCESS中写的一些通用函数/过程可以移植到EXCEL和VB中使用,但如果在函数/过程中使用了NZ函数的话,就会出现麻烦,因为VB和EXCEL是没有NZ函数的,除了修改代码,那该怎么办呢?

    当然是先百度一下……

    百度也没好方法,那就自己动手编写一个自定义的NZ函数来替代吧。

'函 数 名:NZ

'函数作用:在EXCEL或者VB中替代Access中的NZ函数,而无需修改原通用模块

'调用方法:和ACCESS中的NZ语法一样

'作      者smileyoufu

'创建日期: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

'限于作者水平,该函数可能编写不完美,请看客予以斧正。


Access软件网交流QQ群(群号:198465573)
 
 相关文章
表达式中必须使用空值函数(nz())  【王樵民  2010/2/10】
【access小品】对于时间的NZ与IIF  【煮江品茶  2011/7/11】
使用NZ()函数  【Aaron  2011/9/9】
【Access入门】直观解释nz函数,nz函数入门示例一则,将空值...  【麥田  2012/9/7】
SQL中没有IIf,Nz函数,用什么替代  【风行  2012/10/20】
常见问答
技术分类
相关资源
文章搜索
关于作者

福哥

文章分类

文章存档

友情链接