access穫?cè)×绣l的最小值

access不能像Excel一樣，用Min（）和Max（）函數(shù)直接選擇任意列錶中的最小/最大值。

access一般都是在一列數(shù)據(jù)中找齣最值。不能跨字段穫?cè)?/span>

下麵函數(shù)，可以直接找齣多箇值（包括貨幣和日期）的最小值，如果列錶中沒有數(shù)值，則牠們返迴Null

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

也可以在一箇有三箇日期字段的查詢中，添加新列穫?cè)∽钚≈?/p>

MinOfList([OrderDate], [InvoiceDate], [DueDate])