Thread: Macro for Dates
View Single Post
  #5   Report Post  
Posted to microsoft.public.excel.programming
JCO JCO is offline
external usenet poster
 
Posts: 54
Default Macro for Dates

Thanks, I did figure out the code yesterday. I'm sure I used more code than
required but it does work (including for leap year.

"Denis" wrote in message
...
On Tuesday, November 5, 2013 6:02:11 PM UTC-6, JCO wrote:
I have a report that requires the current date in the right header and
the

date range in left header. The date range is the first day of the
previous

month to the last day of the previous month.



Example: Today is 11/05/2013. As I run the macro, it should look like

below:

Date Range: 10/01/2013 - 10/31/2013 Date:

11/05/2013



Thanks


Well, first you get today's date (11/5/2013) with the TODAY() function as
the formula in your rightmost cell. Then set a Date variable to this cell
value and take advantage of the fact that you can do date arithmetic.
Subtract the number of days in the previous month (31 for Oct) and the
number of days in the current date less one (-31-5+1) to get the start of
the previous month. Then add the number of days in the previous month
less one (+31-1) to get the ending date. Use the Format function to
format the starting and ending dates the way you want them to look. Only
tricky thing here is you have to handle leap years to determine whether 28
or 29 days in February.

Denis