Hey all,

i have a really weird thing happening
The system date is correct
today is 19/09/2006

Dim dateTODAY As Date
Dim strDate As String

dateTODAY = Date
strDate = CDate(dateTODAY)

MsgBox strDate

Returns 15/08/2006

any ideas?

all other computers on the network all say 19/09/2006

any help would be great, cheers

- Max

Why are you doing all those funny things with the date to get a date?

Try this first:
'-----------------------
Dim dtToday As Date

dtToday = Date()

MsgBox dtToday
'------------------------

If you just want a messagebox to show the date, how about:

'-----------------
MsgBox Date()
'-----------------

HTH


mmcdonal

Also, you declare strDate as a String, and then you try to force a date into it using CDate() when you already declared it as a string, not as a date.


mmcdonal

The messagebox is irrelovent to my database, just using it to try and get the correct date.

i tried your idea

msgbox date()

an error is thrown saying invalid use of null.
when i hover over date in debug mode, date = null

anyways i did

msgbox DateTime.Date

seems to work fine

thankyou for all your help by the way, still be stuck where i was two weeks ago if it wasn't for you