Last day of the month
Returns the last day of a specified month. Takes into account leap years.
Original Author: Carl Mercier
Inputs
Month (optional), Year (optional)
Returns
Last day of the month
Code
Function LastDay(Optional MyMonth As Integer, Optional MyYear As Integer) As Integer
' Returns the last day of the month. Takes into account leap years
' Usage: LastDay(Month, Year)
' Example: LastDay(12,2000) or LastDay(12) or Lastday
If MyMonth = 0 Then MyMonth = Month(Date)
Select Case MyMonth
Case 1, 3, 5, 7, 8, 10, 12
LastDay = 31
Case 4, 6, 9, 11
LastDay = 30
Case 2
If MyYear = 0 Then MyYear = Year(Date)
If IsDate(MyYear & "-" & MyMonth & "-" & "29") Then LastDay = 29 Else LastDay = 28
Case Else
LastDay = 0
End Select
End Function
Loading Comments ...
Comments
No comments have been added for this post.
You must be logged in to make a comment.