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