Kontrola EMŠO po modulu

Vse drugo, kar ne spada v nobeno zgornjo kategorijo.
Odgovori
TonyCaker
Prispevkov: 312
Pridružen: 27.09.2003 18:33:35

Kontrola EMŠO po modulu

Odgovor Napisal/-a TonyCaker » 13.04.2006 10:45:15

Baje se EMŠO kontrolira po modulu 11. Ali ima kdo to ze skodirano (in stestirano), da se ne zezam brez veze.

LP
A s ti tut not padu ?

kuskus
Prispevkov: 277
Pridružen: 08.12.2002 17:27:44

Kontrola EMŠO po modulu

Odgovor Napisal/-a kuskus » 13.04.2006 11:23:28

Koda: Izberi vse

 
function EmsoCheck(const aEmso: string): boolean;
var
  i,j,k: integer;
begin
  result := false;
  if Length(aEmso) <> 13 then exit;
  j := 7;
  k := 0;
  for i := 1 to 12 do begin
    k := k + (Ord(aEmso[i]) - Ord('0')) * j;
    dec(j);
    if j < 2 then j := 7;
  end;
  k := k mod 11;
  if k <> 0 then k := 11 - k;
  if k = 10 then exit;
  result := aEmso[13] = Chr(Ord('0') + k);
end;

TonyCaker
Prispevkov: 312
Pridružen: 27.09.2003 18:33:35

Kontrola EMŠO po modulu

Odgovor Napisal/-a TonyCaker » 14.04.2006 07:41:59

Tako se dela ! Thx
A s ti tut not padu ?

mackon
Prispevkov: 2
Pridružen: 14.10.2004 17:22:06

Re: Kontrola EMŠO po modulu

Odgovor Napisal/-a mackon » 31.05.2013 10:09:39

Hvala tudi od mene. Še vedno prav pride!

Odgovori