Results 1 to 2 of 2
Hybrid View
-
2nd November 2005 14:04 #1Registered User
Join Date: Jul:2002
Location: The Bog of Eternal Stench
Posts: 345
? - 12, UPC A.
...
-
2nd November 2005 15:51 #2(Delphi):
Originally Posted by v_mihaylov
.Code:function CheckSumModulo10(const data:string):string; var i,fak,sum : Integer; begin sum := 0; fak := Length(data); for i:=1 to Length(data) do begin if (fak mod 2) = 0 then sum := sum + (StrToInt(data[i])*1) else sum := sum + (StrToInt(data[i])*3); dec(fak); end; if (sum mod 10) = 0 then result := data+'0' else result := data+IntToStr(10-(sum mod 10)); end;

..
Last edited by SAGE; 2nd November 2005 at 15:58.




Reply With Quote
7th May 2023, 16:02 in PC