how to add a week nums to this calendar

[broj1]

hi all,

does anyone know how to put a add week numbers to this calendar, so it would be a number of the week by end of each's week line:

mon tue wed thu fri sat sun week
6 7 8 9 10 11 12 49

Calendar is work of great Brendan Kidwell.

 

[Remou]

You could add six textboxes called W1 to W6 and set the control source of each:

[tt]=Format(DateSerial([txtyear],[cbomonth],1),"ww")
=Format(DateSerial([txtyear],[cbomonth],8),"ww")
=Format(DateSerial([txtyear],[cbomonth],15),"ww")
=Format(DateSerial([txtyear],[cbomonth],22),"ww")
=Format(DateSerial([txtyear],[cbomonth],29),"ww")
=Format(DateSerial([txtyear],[cbomonth],[d50].[Tag]),"ww")[/tt]

Then add a line to the end of Private Sub DrawDateButtons()
[tt]W6.Visible = d50.Visible[/tt]

 

[broj1]

dear Remou,


it does work!
now it looks so easy i was brainstorming for two hours with no result.
thank you, thank you!!