cDateToConvert = "18AUG04" Set Century On ? Date( 2000 + Val( SubStr( cDateToConvert, 6 )) ; , (At( SubStr( cDateToConvert, 3, 3 ), "JANFEBMARAPRMAYJUNJULAUGSEPOCTNOVDEC" ) + 2) / 3 ; , Val( cDateToConvert ))And you could wrap the whole thing in a DtoC() if you want a string instead of a date.