error code 13 Type mismatch

[oldguy46]

Any assistance with this code would be much appreciated. Thanks.

Sub test()


Dim x As Integer
Dim y As Date


x = Year(Now) - 1
y = DateValue("x/1/1")


MsgBox y


End Sub

 

[Joe4]

Since x is a variable and not literal text, it needs to be outside of the text qualifiers, and concatenated with the text part, i.e.

y = DateValue(x & "/1/1")

 

[oldguy46]

Thank you Joe4. Simple solution. Works great.

 

[Joe4]

You are welcome.

It is important to understand the distinction between variables and literal values. In a nutshell, anything between double-quotes is treated as literal text. So you need to make sure all your variables and not between the double-quotes.