MonthEnd Date

[AccessVB]

Is there a way to generate the MonthEnd date for any month using VB? Need to create a record in a table with MonthEnd Date of the previous month when a user runs a certain macro...Any help will be appreciated. Thanks.

 

[SkipVought]

DateSerial(Year(Date),Month(Date)+1,0)-1

Skip,
[sub]
[red]Be Advised![/red] The only distinction between a bird with one wing and a bird with two, is merely...
a difference of A Pinion! [/sub]

 

[AccessVB]

Thanks.

 

[TonyJollans]

I think Skip is being too clever for his own good here. He means either

DateSerial(Year(Date),Month(Date)+1,0)

or

DateSerial(Year(Date),Month(Date)+1,1)-1

Enjoy,
Tony

--------------------------------------------------------------------------------------------
We want to help you; help us to do it by reading this: Before you ask a question.

Professional Office Developers Association

 

[SkipVought]

I threw BOTH in there, didn't I.

Skip,
[sub]
[red]Be Advised![/red] The only distinction between a bird with one wing and a bird with two, is merely...
a difference of A Pinion! [/sub]