allora è tutta un'altra cosa
sicuro che sia un float e non una stringa?
Comunque
codice:
datafloat = 20041002
data = DateSerial(Left(CStr(datafloat),4),Mid(CStr(datafloat),5,2),Right(CStr(datafloat),2))