Передача значений столбцов базы данных в функцию 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

Функция выглядит нормально, но вы не можете назвать ее так, как вы указали. Вам нужно будет загрузить даты в массив, а затем передать массив.

Answer 2

выглядит примерно так.

Google обнаружил это , которое выглядит довольно отточенным, также это из старой группы новостей VB6.