Using a function in a query expression

[Alex]

I have several functions in Module1. These functions work to calculate
business and holiday dates.

For example:

Public Function dhAddWorkDaysA(lngDays As Long, _
Optional dtmDate As Date = 0, _
Optional adtmDates As Variant) As DateDim lngCount As Long

Dim dtmTemp As Date

If dtmDate = 0 Then
dtmDate = Date
End If

dtmTemp = dtmDate
For lngCount = 1 To lngDays
dtmTemp = dhNextWorkdayA(dtmTemp, adtmDates)
Next lngCount
dhAddWorkDaysA = dtmTemp
End Function

Public Function dhNextWorkdayA( _
Optional dtmDate As Date = 0, _
Optional adtmDates As Variant = Empty) As Date

If dtmDate = 0 Then
dtmDate = Date
End If

dhNextWorkdayA = SkipHolidaysA(adtmDates, dtmDate + 1, 1)
End Function

. . . plus several more


How do I use this group of functions in a query expression to give me the
result? I've done a little VBA, but fairly new. Thanks for your help.

 

[Alex Dybenko]

you can use these functions in queries like any build-in function, only you
have to supply optional arguments, or remove them