将数据库列值传递给VB6函数

Question

我需要将8个数据库列日期传递给我的CalculateMostRecentDate函数，因为vb6没有max函数。我能简单地传递这样的数据库值吗？或者我该怎么做？

Public Function CalculateMostRecentDate(ParamArray dates() As Variant) As Variant
Dim i As Integer
Dim MostRecentDate As Variant

MostRecentDate = dates(LBound(dates))
For i = LBound(dates) + 1 To UBound(dates)
    If MostRecentDate < dates(i) Then MostRecentDate = dates(i)
Next i
CalculateMostRecentDate = MostRecentDate
End Function

在另一个函数中调用函数：

RECENT_APPRV_DT = CalculateMostRecentDate(EMPLOYER.UW_APPRV_DT,  EMPLOYER.BE_APPRV_DT, . . .)

Answer 1

看起来正确。

谷歌出现了this，看起来非常精致，也是来自旧版VB6新闻组的this。

Answer 2

该功能看起来不错，但您无法按照指示的方式调用它。您需要将日期加载到数组中，然后传入数组。