I assume that all years are to be in the 1900's.

SCAN
   lnAt = At("/", MyDate)
   lcMonth = Left(MyDate, lnAt - 1)
   lnAt2 = At("/", MyDate, 2)
   lcDay = SubStr(MyDate, lnAt + 1, lnAt2 - lnAt - 1)
   lcYear = Str(1900 + Val(Right(MyDate, Len(MyDate) - lnAt2)), 4)
   REPLACE MyDate WITH lcYear + "/" + lcMonth + "/" + lcDay
ENDSCAN

HTH

---

>I have a character field with a date stored in it in the following format
>
>mm/dd/yy
>
>I need to get this to be in this format ccyymmdd