김주석 wrote:

> 법인번호의 유효성 여부를 체크하고 싶습니다.

> 마치 주민등록번호를 체크하는 것처럼 법인번호를 체크하려고 하는데요.

> 도와주시기 바랍니다.



사업자 등록번호를 검사하는 법

// "천리안 프로그래머 포럼(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;

님께서 답변해주신 내용은 법인번호에 대한 것이 아니고 사업자번호를

체크하는 로직이군요.



법인번호는 13자리이구요, 사업자번호는 10자리로서 서로 다른 것입니다.



답변해 주신것에 대해서는 고맙습니다.