Returning week number of the month

Question

In January this year (2018) I have 5 weeks in the same, being them:

1 week: 1 to 7;

2 week: 8 to 14;

3 week: 15 to 21;

4 week: 22 to 28 and

5 week: 29 to 31 (or 29 to 04 February).

When using the function WeekOfTheYearthe application returns me the day 29 as being week 1, which is not true.

Any solution to this problem?

Answer 1

Maybe this can help you:

weekNum: Integer; 
weekNum:=(StrToInt(FormatDateTime('dd',Date)) - 1) div 7 + 1 ;