求某月的最后一天的函数_access模块-access类模块-access函数-access VBA

求某月的最后一天的函数

时间：2004-11-23 22:44 来源：AccessFaq 作者：zhuyiwen… 阅读：次

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

正    文：

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

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

(责任编辑：admin)

顶一下

(1)

100%

踩一下

(0)

上一篇：获取字符串中特定字符的个数
下一篇：获取唯一的文件名