Check date Y2k

[bengalliboy]

Does any one got the Y2k date check logic handy done in VB?
I am using 'is date' function but it is not catching dates that are bad but could be valid like (Year =999, 99, 200)
and I need to fix them as (1999, 1999, 2000) and so forth.
Thans again@

 

[SkipVought]

Hi,
What application are you using? Skip,
metzgsk@voughtaircraft.com

 

[bengalliboy]

I am using Visual Basic (ADO). The app sends data values some thing like this:
Conn.Execute "Insert into table values (" & Check_DT(!dob) & ""

the Check_DT is a simple function that is something like this: if
IS DATE(!dob) then (!DOB) else Null

 

[bengalliboy]

I am using Visual Basic (ADO). The app sends data values some thing like this:
Conn.Execute "Insert into table values (" & Check_DT(!dob) & ""

the Check_DT is a simple function that is something like this: if
IS DATE(!dob) then (!DOB) else Null
But I need more than that .... Microsoft IS DATE may allow a date but It is going to though off when the year is like 00. I need to fix it and change it to 2000 similer 99 to 1999 and 19 to 1999 as well.

 

[SkipVought]

This Forum is VB for Applications - You probably want the VB 5.0/6.0 Forum Skip,
metzgsk@voughtaircraft.com