EndOfMonth

Last day of the month
Calculates the last day of the month.
"Jim Doherty"

Original Author: Newsgroup Posting

Code

Function EndOfMonth (D As Variant) As Variant
EndOfMonth = DateSerial(Year(D), Month(D) + 1, 0)
End Function

About this post

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

Categories

Visual Basic 6

Attachments

No attachments for this post

Comments

No comments have been added for this post.

You must be logged in to make a comment.