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