Last day of the month
Returns the last day of a specified month. Takes into account leap years.
AI
Riepilogo AI: This codebase represents a historical implementation of the logic described in the metadata. Our preservation engine analyzes the structure to provide context for modern developers.
Codice sorgente
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
Commenti originali (3)
Recuperato da Wayback Machine