[AccessD] Date Format

As far as data import goes, Stuart has an example for you, but I think it
will have problems with people born after 1999.

I personally like using code with my querries, so I would do this:

Function VerifyDOB(ByVal tmpDate as Date)
if tmpDate > Date() Then
     tmpDate=SerialDate(Year(tmpDate)-100,month(tmpDate),Day(tmpDate))
End if
VerifyDOB=tmpDate
End Function

Then, in your query, use the function as the field:

VerifiedDate: VerifyDOB([PatDate])

Does that make sense?

Drew

-----Original Message-----
From: Scott Gage
To: accessd at databaseadvisors.com
Sent: 2/1/03 4:16 PM
Subject: RE: [AccessD] Date Format

Thanks Drew. You are correct about the data that I
import. If it is in the mm/dd/yyyy format everything
works fine. 

As part of the application I am building, I have to
Import the data using the following code.

DoCmd.TransferText acImportDelim, "BVH", "RawImport",
"C:\Program Files\Leadnet\Data\LEAD.txt"

I made a schema to separate the fields. Can I do
anything at that point to change the Date from mmddyy
to mmddyyyy? I am importing fifty records at a time
give or take.

I am fixing this data with a query and don't know how
to apply your suggestion in a query.

I'm kind of a rookie as you might have guessed.

=====
--------------------
Scott T. Gage
Scott.gage at promedica.org
419.291-7177

__________________________________________________
Do you Yahoo!?
Yahoo! Mail Plus - Powerful. Affordable. Sign up now.
http://mailplus.yahoo.com
_______________________________________________
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com