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