Function GetMaxDate(ParamArray Dates()) As String
On Error GoTo getmaxdate_Error
Debug.Print UBound(Dates())
Dim Tempdate() As Date
Dim i As Integer
Dim TempStr As Date
ReDim Tempdate(UBound(Dates()))
For i = 0 To UBound(Dates())
Tempdate(i) = IIf(Dates(i) = "", CDate("1/1/1900"), Dates(i))
Next
TempStr = Tempdate(0)
For i = 1 To UBound(Tempdate())
If Tempdate(i) > TempStr Then
TempStr = Tempdate(i)
End If
Next
GetMaxDate = IIf(DateDiff("d", TempStr, CDate("1/1/1900")) = 0, "", CStr(Format(TempStr, "m/d")))
On Error GoTo 0
Exit Function
getmaxdate_Error:
Err.Raise vbObjectError + 1, , "[Form1]-[getmaxdate]" & vbCrLf & Err.Description
End Function
来自 “ ITPUB博客 ” ,链接:http://blog.itpub.net/778857/viewspace-982416/,如需转载,请注明出处,否则将追究法律责任。
转载于:http://blog.itpub.net/778857/viewspace-982416/