Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
FirstDate: basFirstGT_Zero(Nz([Date1], Nz([Date2], Nz([Date3], ... Nz([Date[i]1[/i]])
[end code]
Of course YOU still need to do the homework.
MichaelRed
Public Function basMinVal(ParamArray varMyVals() As Variant) As Variant
'Michael Red 10/25/2001
'To return the MINIMUM or a series of values
'Sample Usage:
'? basMinVal(1, 5, 9, 3, 13.663)
'1
'? basMinVal(1, 5, Null, 9, 3, Null, 13.663)
'1
'?basMinVal(9, 1, 5, 3, 13.663)
'1
Dim Idx As Integer
Dim MyMin As Variant
If (UBound(varMyVals) < 0) Then
Exit Function
Else
MyMin = Nz(varMyVals(0))
End If
For Idx = 0 To UBound(varMyVals())
If (Not IsNull(varMyVals(Idx))) Then
If (varMyVals(Idx) < MyMin) Then
MyMin = varMyVals(Idx)
End If
End If
Next Idx
basMinVal = MyMin
End Function