如何确定日期是否是该月的最后一天？

Question

有人可以帮我确定给定日期是一个月的最后一个日期还是一天？

例如,我有两个日期,一个是2013-01-27,另一个是2013-02-28.我需要确定哪个日期是最后一天.所以必须展示的是2013-02-28,因为它是2月份的最后一天,而2013-01-27并不是1月份的最后一天.

我可以使用的条件是什么？

提前致谢.

Answer 1

用这个:

Function IsLastDay(ByVal myDate As Date) As Boolean
    return myDate.Day = Date.DaysInMonth(myDate.Year, myDate.Month)
End Function