Hi friends,

How do i calculate the week number of a year? The week number should be calculated from the first day of a year. For example, this year 1st January 2010 falled on Friday, so week 1 should be calculcated from Friday(01/01/2010) till Thursday (07/01/2010). therefore, given any date, the current week must be able to be calculated automatically. Please help me with this problem.

I used below code, but it's limited by putting vbFriday.

```
Dim currentWeek As String
currentWeek = DatePart("ww", Now, vbFriday)
```