I'm not sure what that type looks like. Is it like 1011900 for {01/01/1900}? If so try this:

TEST.PRG:
PARAMETER i
mydate=PADL(i,8,'0')
mymonth=LEFT(mydate,2)
myday=SUBSTR(mydate,3,2)
myyear=RIGHT(mydate,4)
RETURN CTOD(mymonth+'/'+myday+'/'+myyear)

? TEST(1011900)
01/01/1900