Given a date in a txtbox return week number in another txtbox

[sabas]

Hello
In a Form I have written a statement to display the week number in TxtWeek from a date user writes in TxtDate.
Sub Week_Click()
If datDate = "0:00:00" Then
datDate = Date
Weel = DatePart("ww", datDate, vbMonday)
End Sub

However, any dates user types, Txtweek always returns 53.
I have been googling hours and hours with no success

Please, can someone fix my statement so it displays the correct week?:banghead:

 

[pbaldy]

I don't see where you set the variable equal to the textbox.

 

[Grumm]

Here is an example. You need to get the date from the field first.
Also you need to close the "IF" or else the code will not work.

 

[pbaldy]

You should also use this, which would reveal a goof in your code:

http://www.baldyweb.com/OptionExplicit.htm

 

[sabas]

Your code works correct.
I already checked the Required Variable Declaration unchecked
Thank you very much.

 

[Grumm]

Wait are there people who turn that OptionExplicit off ?
Better keep it on and make the code clean and with no mistakes.

 

[pbaldy]

Turning it on was my recommendation. It would have flagged:

Weel = DatePart("ww", datDate, vbMonday)

 

[sabas]

Wait are there people who turn that OptionExplicit off ?
Better keep it on and make the code clean and with no mistakes.

I will always remember it.
Thank you very much indeed.