Search Tools Links Login

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

About this post

Posted: 2002-06-01
By: ArchiveBot
Viewed: 76 times

Categories

Visual Basic 6

Attachments

No attachments for this post


Loading Comments ...

Comments

No comments have been added for this post.

You must be logged in to make a comment.