VBA textbox to display weeknumber

[PLwolves87]

hi All,

so ive made a pop-up calendar userform, when you select the date of choice this date is then displayed on the main userform in a textbox, for example you click on the calendar and select 01/01/2023 then click the command button to confirm this date and then it closes the calendar and on the main userform textbox1 will display the date from your calendar choice (it is displayed as "01 January 2023" not 01/01/2023) but then ive added textbox2 which will be for the week number of the date selected. week numbers must start from the first monday of the year.

does anyone know what code i would use to display the weeknumber in textbox2 from the date selected in textbox1

TEXTBOX1= 'calendar date which has been selected
TEXTBOX2 = 'week number from textbox1

thanks

 

[dmt32]

Hi
Assuming Sunday is the first day of the week, then try the following

With Me.TextBox1
        If IsDate(.Value) Then Me.TextBox2.Value = Application.WeekNum(DateValue(.Value), vbSunday)
    End With

If Monday is the first day then change vbSunday to vbMonday

Dave