Get the number of the week of the month from a given date

excel vba date week-number
user2453446 picture user2453446 · Feb 11, 2014 · Viewed 13.6k times · Source

I have a set of dates from which I must obtain the week of the month.

There is a lot of literature on how to obtain the week of the year using VBA code but not the week number of the month.

For instance 03-Mar-13 would give week 1 of March, instead I end up with a result of week 10.

Answer

user3496574 picture user3496574 · Jul 22, 2014

I know this is old, but I came across this and thought I would add my code. (Built from rvalerio's answer)

Private Function getWeekOfMonth(testDate As Date) As Integer
    getWeekOfMonth = CInt(Format(testDate, "ww")) - CInt(Format(Format(testDate, "mm/01/yyyy"), "ww")) + 1
End Function

Related questions

Autofilter with column formatted as date

I am using an AutoFilter with VBA in Excel that works for regular filters, but not a column formatted as date. I can filter it manually. If I run my code, it filters nothing but when I check the filter …

Read More
How to find the difference between dates in VBA

I am trying to find out the difference between the system date and the date stored in the worksheet. If the difference between them is > 30 days, the result is true, else the result is false Dim result as boolean …

Read More
SQL Query between dates in VBA

I've a problem making a sql query in VBA using excel and an access database. In mi VBA code I've two data variables with this content: DateMin = 31/07/2014 22:00:00 DateMax = 01/08/2014 06:00:00 And I have an access database with many data with a date …

Read More