Code for first of the month

  • Thread starter Thread starter Guest
  • Start date Start date
Hi,
you could try:

If DateSerial(Year(Date),Month(Date),1) = Date Then
'execute your code
End If

HTH
Good luck
 
freakazeud said:
Hi,
you could try:

If DateSerial(Year(Date),Month(Date),1) = Date Then
'execute your code
End If
Click to expand...

Wouldn't

If Day(Date) = 1 Then
' ...

be simpler?
 
I want create code that will call a function on the first day of each month.
Any help?
Click to expand...

Dirk's solution is simplest as long as you can guarantee that the
_calling_ code will run (at least once) on the first day (which may
not be a working day) of every month. If what you really want is to
ensure that your function is called on the first occasion on which the
application and/or calling code runs in each new month, which is
rather different (and somewhat more probable in most business
applications), you will have to be more creative. In this case, you
will need to save the current month value, either in a Table, or in
the Registry, each time the program runs, and compare the new current
month with the saved value on startup to determine if you are in a new
month.

Please respond to the Newsgroup, so that others may benefit from the exchange.
Peter R. Fletcher
 
Back
Top