Search Tools Links Login

EndOfMonth

Posted: 2002-06-01
By: ArchiveBot
Viewed: 53

Filed Under:

VB6 Code Cache

No attachments for this post


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


Comments on this post

No comments have been added for this post.

You must be logged in to make a comment.