【Access函数】最大值和最小值自定义函数-漏蛧尐魚℡
Access软件网QQ交流学习群(群号码198465573),欢迎您的加入!
首页 >技术文章> Access数据库-模块/函数/VBA


【Access函数】最大值和最小值自定义函数

发表时间:2012/8/23 8:57:44 评论(2) 浏览(16618)  评论 | 加入收藏 | 复制
   
摘 要:最大值和最小值自定义函数
正 文:

新建一个模块,然后把下面的代码复制进去,保存模块Module1。

使用方法:新建一个文本框,在控件来源写上 =MinOfList(5, -3, Null, 0, 2)    结果会返回“-3”

代码:

Function MinOfList(ParamArray varValues()) As Variant
    Dim i As Integer        'Loop controller.
    Dim varMin As Variant   'Smallest value found so far.

    varMin = Null           'Initialize to null

    For i = LBound(varValues) To UBound(varValues)
        If IsNumeric(varValues(i)) or IsDate(varValues(i)) Then
            If varMin <= varValues(i) Then
                'do nothing
            Else
                varMin = varValues(i)
            End If
        End If
    Next

    MinOfList = varMin
End Function

Function MaxOfList(ParamArray varValues()) As Variant
    Dim i As Integer        'Loop controller.
    Dim varMax As Variant   'Largest value found so far.

    varMax = Null           'Initialize to null

    For i = LBound(varValues) To UBound(varValues)
        If IsNumeric(varValues(i)) or IsDate(varValues(i)) Then
            If varMax >= varValues(i) Then
                'do nothing
            Else
                varMax = varValues(i)
            End If
        End If
    Next

    MaxOfList = varMax
End Function

 


Access软件网交流QQ群(群号:198465573)
 
 相关文章
取列字段和表中的最大值与最小值示例  【十段  2008/5/19】
[access查询]查询中显示数据行最小值最大值方法  【trynew  2008/9/6】
具有与电子表格中一样方便的求和、计数、平均值、方差、最大值、最小值...  【曹光耀  2010/11/26】
[access查询]【access入门】Access求列最大值的示...  【麥田  2012/4/17】
在一条记录的多个字段中查找最大值或最小值的自定义函数,Access...  【http://www.accessoft.com/  2012/5/3】
常见问答
技术分类
相关资源
文章搜索
关于作者

漏蛧尐魚℡

文章分类

文章存档

友情链接