Last day of the month
Returns the last day of a specified month. Takes into account leap years.
AI
Shrnutí 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.
Zdrojový kód
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
Původní komentáře (3)
Obnoveno z Wayback Machine