Trying to create a DTS Package that will import dbf tables & need help

[susanh]

Hi There,
I am trying to create a DTS package that will import dbf tables. My problem is that the data was created back in the pre-dos 5 days, so to save room they took the dates and convert them to 2 characters.
Now I would like to import these tables and conver the date back. I do have a Function that I can run in FoxPro to "Unpack" these dates.


CODE
Function UnPackDate( cDate )

*!* PARAMETERS: f_datestr - Character (manditory). This should be a two
**!* byte string created with PACKDATE().
*!*
*!* RETURNS: A date from 1/1/1970 and 11/29/2126

If EMPTY(cDate)
Return {//}
Endif

Local nDate
nDate = (ASC( LEFT(cDate,1) ) * 256) + ASC( RIGHT(cDate,1))

Return ( CTOD("01/01/1970") + nDate - 8225 )

*=======================================================================

Does anyone know how to take this function and make it work while doing an import?

Thanks
Sue