用VB实现一些小函数集

1. 类似于EXCEL中的MAX()

 

Public Function getMax(ParamArray item() As Variant) As Variant

    Dim oMax As Variant
    Dim i As Integer
   
    oMax = item(i)
   
    For i = 1 To UBound(item)
        If oMax < item(i) Then
            oMax = item(i)
        End If
    Next i
   
    getMax = oMax

End Function

2. DCONCAT 域字符串合并函数

DCONCAT 函数

可以使用 DCONCAT 函数连接指定的一组记录（域）中的一组值的字符串。
可以在 Visual Basic、宏、