Formatting date (2000(sr3))

Topic

New Reply

I have the following bit of code:
Dim dteY As Date
Dim dteY2 As Date
dteY = #2/14/2008#
dteY2 = Year(dteY)

If I debug.print, dteY returns Feb 14, 2008 but dteY2 returns June 30, 1905. What I need to do is extract the Year out of the date for comparison purposes with data entered into a dialogue box.

Reply | Quote

Replies

Change the declaration of dteY2 to

Dim dteY2 As Integer

Reply | Quote

You’re quick. I just realized I needed to change dteY2 to Integer and came back to the computer to post back!

Thanks as usual for the quick help.

Reply | Quote