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

Try this Pete

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


--
Regards Ron de Bruin
http://www.rondebruin.nl



"Pete" wrote in message ...
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

"Pete" wrote in message
...
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

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.

"Pete" wrote in message
...
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

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

"Pete" wrote:

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

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)



On Fri, 25 Mar 2005 13:55:02 -0800, Stratuser
wrote:


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

"Pete" wrote:

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