търся алгоритъм...

Търся алгоритъм за изчисляване на контролната цифра на данъчен номер.
Намерих съответните за ЕГН и БулСтат, ако някой желае мога да ги публикувам.

Prati za BulStat na lava20002001@yahoo.com, molya

Humm, sega kato se zamislia vinagi sam se chudel kakv e smisala na poslednite cifri ot EGN-nomerata. Shte mojesh li da go postnesh tuka.

shto ne zemesh da postnesh naprawo url-tata ....

Предпоследната цифра показва пола. Четна - мъж, нечетна - жена. Последната е контролна.

10X

ne e werno az sum male a EGN-to mi swyr6wa na ********61

Prati mi gi ... otdavna tursya info za tova ...
predvaritelno blagodarya

pavlov@satline.net

male = мъж;
6 = четна цифра;

Не виждам къде е проблема ...

Mixy

За ЕГН информацията се намира на страницата на ГРАО

Теглата са 2 4 8 5 10 9 7 3 6



За БУЛСТАТ информацията се намира на страницата на Националния статистически институт.
Теглат са .... Най добре вижте на страницата на НСИ.



За Данъчен номер съм намерил от една програмка която прави контрол на номера. Следните тегла 7 8 9 4 5 6 7 8 9.
Горното не е тествано. След като го тествам ще дам и алгоритъм за изчисление.

Успех

Никога не е късно човек да се провали!

function ValidDanNo(sDanNo:String):Boolean;
var
i,Sum,nOst:Integer;
begin
Result:=False;
if Length(sDanNo) <> 10 then Exit;

for i := 1 to 10 do
if not (sDanNo in ['0'..'9']) then Exit;
Sum:=0;
for i := 1 to 9 do begin
Sum:=Sum+StrToInt(sDanNo)*((9-i) mod 6 + 2);
end; { for }
nOst :=Sum mod 11;
Sum := 11 - nOst;
if (nOst = 1) then Exit;
if (nOst = 0) then begin
if sDanNo[10] = '0' then begin
Result:=True;
Exit;
end else begin
Result:=False;
Exit;
end;
end;
if StrToInt(sDanNo[10]) <> Sum then Exit;
Result:=True;
end; {ValidDanNo}

Вярвам, че няма да имаш проблеми да си я напишеш на C :))
Може ли да ми пратиш за булсата на dark_dirk@yahoo.com

теглата са верни! току що го тесвах.
Благодаря