Статьи Королевства Дельфи

         

Алгоритм расчета контрольного числа ОГРН (основной государственный регистрационный номер)




Государственный регистрационный номер записи, вносимой в Единый государственный реестр юридических лиц (далее - государственный реестр), состоит из 13 цифр, расположенных в следующей последовательности: СГГККХХХХХХХЧ, где
  • С (1-й знак) - признак отнесения государственного регистрационного номера записи:
  • 1 - к основному государственному регистрационному номеру (ОГРН);
  • 2 - к иному государственному регистрационному номеру записи;
  • ГГ (со 2-го по 3-й знак) - две последние цифры года внесения записи в государственный реестр;
  • КК (4-й, 5-й знаки) - порядковый номер субъекта Российской Федерации по перечню субъектов Российской Федерации, установленному статьей 65 Конституции Российской Федерации;
  • ХХХХХХХ (с 6-го по 12-й знак) - номер записи, внесенной в государственный реестр в течение года;
  • Ч (13-й знак) - контрольное число: младший разряд остатка от деления предыдущего 12-значного числа на 11.
  • unit OGRN; interface function CheckOGRN(const OGRN: string): Boolean; implementation uses Sysutils; function CheckOGRN(const OGRN: string): Boolean; var VerifNumb: Int64; CheckNumb, ResultNumb: Byte; begin Result := Length(OGRN) = 13; if Not Result then Exit; VerifNumb := StrToInt64(Copy(OGRN, 1, 12)); CheckNumb := StrToInt(OGRN[13]); ResultNumb := VerifNumb mod 11; if ResultNumb > 9 then ResultNumb := ResultNumb - Round(ResultNumb/10)*10; Result := ResultNumb = CheckNumb; end; end.





    Содержание  Назад  Вперед