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