End Of Month

[Pete]

How can I detect if the End Of the month has been reached
from within VBA

I know you can use EOMONTH in Excel, is it available in
VBA?

Pete

 

[Ron de Bruin]

Try this Pete

If Month(Date) <> Month(Date + 1) Then MsgBox "This is the last day"

 

[Fredrik Wahlgren]

How can I detect if the End Of the month has been reached
from within VBA

I know you can use EOMONTH in Excel, is it available in
VBA?

Pete

Assuming you have a date in A1, you could use this formula

=IF(A1=DATE(YEAR(A1),1+MONTH(A1),0), TRUE, FALSE)

I got the idea from http://www.mrexcel.com/td0053.html

/Fredrik

 

[Daniel.M]

Hi,

If you want to verify that today is the end of the month

If Day(Date+1) = 1 Then Msgbox "End of Month"

Replace Date with any other variable, should you need to.

Regards,

Daniel M.

 

[Guest]

Monthend = Application.Run("ATPVBAEN.XLA!EOMONTH", Range("daterange").Value,
1)

 

[Myrna Larson]

And if you set a reference to the ATP in the VBE (Tools/References, check
ATPVBA), you can write it as

MonthEnd = EOMONTH(Range("DateRange").Value)