Find start date of the month

**aman1234** · 01-31-2012, 04:57 AM

Hi guys

How to find start date of the month from the last Date of the month using vba. e.g we have 30.01.2012 (This date given). How can I know from this when the month started.

Thanks

**Fotis1991** · 01-31-2012, 05:16 AM

Hi

You can also do it, using formula.

Why do you need VBA, for this?

**aman1234** · 01-31-2012, 05:20 AM

Which formula can I use?

Thanks

**TMShucks** · 01-31-2012, 05:21 AM

I think that, generally speaking, the month starts on the first day of the month ... day 1. What am I missing?

Sub GetFirstDay()

Dim LastDay As Date
Dim FirstDay As Date

LastDay = DateValue("31/01/12")
MsgBox Day(LastDay)
FirstDay = DateValue("1/" & Month(LastDay) & "/" & Year(LastDay))
MsgBox Day(FirstDay)

End Sub

Regards, TMS

**Fotis1991** · 01-31-2012, 05:37 AM

..Sorry for the delay..

First day of the month(your date in A1)>> =DATE(YEAR(A1);MONTH(A1); 1)

First Workday of the month>> =WORKDAY(DATE(YEAR(A1);MONTH(A1);1)-1;1;Holidays)

Change the semi-colons, to gomma, if it is necassary.

Hope to helps you.

**marreco** · 01-31-2012, 05:57 AM

Hi TMShucks
sorry I'm intruding, that I wonder if it were using a cell instead of the line of code ..

MsgBox Day (lastday)

, how would the code?

**TMShucks** · 01-31-2012, 06:20 AM

@marreco: You should be opening a new thread and referring back to this one (see below).

However:

MsgBox Day(Range("A1"))

For future reference ...

Your post does not comply with Rule 2 of our Forum RULES. Don't post a question in the thread of another member -- start your own thread. If you feel it's particularly relevant, provide a link to the other thread. It makes sense to have a new thread for your question because a thread with numerous replies can be off putting & difficult to pick out relevant replies.