ITPub博客

首页 > 应用开发 > IT综合 > GetMaxDate

GetMaxDate

原创 IT综合 作者:xelement 时间:2007-11-14 22:26:45 0 删除 编辑

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

[@more@]

来自 “ ITPUB博客 ” ,链接:http://blog.itpub.net/778857/viewspace-982416/,如需转载,请注明出处,否则将追究法律责任。

下一篇: fscommand的用法:
请登录后发表评论 登录
全部评论

注册时间:2007-12-11

  • 博文量
    11
  • 访问量
    11330