Source position: dateutil.inc line 449
function DateTimeToDosDateTime(
const AValue: TDateTime
):LongInt;