求某月的最后一天的函数

作    者：朱亦文
摘    要：通过某个日期,求取该日期所在月份的最后一天的日期.

正    文：

    由于每个月的天数是不一样的,因此每个月最后一天的日期也不固定的,因此本函数通过循环,判断是否出现新的月份,来确定该月的最后一日的日期.

Public Function MonLastDay(dFirst As Date) As Date
    Dim dm As Date
    Dim m As Integer

    dm = dFirst
    m = Month(dm)
    Do While Month(dm) = m
       dm = dm + 1
    Loop
    MonLastDay = dm - 1
End Function

下面是由access中国的李啸林版主提供：

Public Function MonLastDay1(dFirst As Date) As Date
MonLastDay1 = DateAdd("d", -1, CDate(DatePart("yyyy", DateAdd("m", 1, dFirst)) & _
"-" & DatePart("m", DateAdd("m", 1, dFirst))))
End Function

下面是由access中国的AlexLiu提供：

Public Function MonLastDay1(dFirst As Date) As Date
MonLastDay1 = DateSerial(Year(dFirst), Month(dFirst) + 1, 1) - 1
End Function

(算法函数_API_系统-相关文章技巧链接)：
Access VBA日期操作函数集锦

发布人:zhuyiwen…-AccessFaq

分享到：

点击次数：更新时间：2004-11-23 22:44:32 【打印此页】【关闭】

上一条：获取唯一的文件名下一条：备份文件为日期+文件名