Use a formula that converts the number to text, then pick out the parts of the string to turn it into a Date field:
[tt]
StringVar Temp := totext({Table.NumericDateField}, 0,"");
Date(Val(Temp[1 to 4]), Val(Temp[5 to 6]), Val(Temp[7 to 8]));
[/tt]
-dave