Compare number to month number?

[behedwin]

Why is this code not working?

Dim dat
Dim yea
Dim mon
Dim da


yea = Left(UserForm4.TextBox_birthyear, 2)
mon = Mid(UserForm4.TextBox_birthyear, 3, 2)
da = Mid(UserForm4.TextBox_birthyear, 5, 2)
dat = DateSerial(yea, mon, da)
If DatePart("m", Date) = mon Then
MsgBox "correct"
Else
MsgBox "incorrect" & mon & " " & DatePart("m", Date)

End If

in the second msgbox i have tested as you can see to print mom and the datepart function.
i get 11 and 11 in the message box.

but i never get the correct messagebox.
both have the value of 11 but the if statement is false still.

 

[Sektor]

What variable "mon" equals to?

 

[Snakehips]

behedwin,

Once you extract mon it is text and your DatePart... is number so try

If DatePart("m", Date) = 1 * mon Then 

Hope that helps.

 

[behedwin]

It is equal to 11.

When running the code i get the incorrect msgbox and it says mon = 11 and so is datepart.

Maybe just add as date in the beginning.

 

[Sektor]

Try
Dim mon As Integer

 

[behedwin]

Worked, did
Dim mon as date