천리안 프로그래머 포럼에서 가져오신 김영대님의 홈에서 가져왔습니당....

함수를 선언하시구 검사하고자하는 곳에서 주석문 처리된 형식으로 검사하심 됩니다.

물론'-'는 빼셔야겠죠? //허걱~ 모양이 이상~~



// "천리안 프로그래머 포럼(pdspf)" 에서 가져 왔습니다



// SN:= '3158100589';

// If not CheckSaUpJaBunHo(SN) then

// ShowMessage('사업자번호가 잘못되었습니다.');



Function CheckSaUpJaBunHo(No:String):Boolean;

Const

Weight : Packed Array [1..8] of Integer =

( 1, 3, 7, 1, 3, 7, 1, 3 );

Var

TempStr : String;

Loop, Sum : Integer;

Begin

Result:= True;

Sum:= 0;

For Loop:= 1 to 8 do

Sum:= Sum+StrToInt(No[Loop])*Weight[Loop];

Loop:= StrToInt(No[9])*5;

Sum:= Sum + (Loop Div 10) + (Loop Mod 10);

Sum:= Sum Mod 10;

If Sum = 0 then TempStr:= '0'

Else TempStr:= IntToStr(10-Sum);

If TempStr <> No[10] then Result:= False;

End;



이승윤 wrote:

> 사업자등록번호를 체크하는 방법을 알고 싶습니다.

> 부디 제게 약간의 지식을...