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

由于vb6没有最大值函数，我需要将8个数据库列日期传递给我的CalculateMostRecentDate函数。我是否能够像这样传递数据库值？或者我会怎么做？另一个函数内将数据库列值传递给VB6函数

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, . . .)

来源

2012-01-24 user1152145

什么数据类型是您的“数据库值”？ EMPLOYER是一个记录集对象吗？ –

它的日期时间数据类型。和EMPLOYER是表 – user1152145

看起来是正确的。

谷歌转起来this看起来很精致，也从旧的VB6新闻组this。

来源

2012-01-24 21:00:19 MarkJ

-1

该函数看起来不错，但不能像你指示的那样调用它。您需要将日期加载到数组中，然后将数组传入。

来源

2012-01-25 00:34:24 ChrisPadgham

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

回答

相关问题