Delphi Programming Forum
C++Builder  |  Delphi  |  FireMonkey  |  C/C++  |  Free Pascal  |  Firebird
볼랜드포럼 BorlandForum
 경고! 게시물 작성자의 사전 허락없는 메일주소 추출행위 절대 금지
델파이 포럼
Q & A
FAQ
팁&트릭
강좌/문서
자료실
컴포넌트/라이브러리
FreePascal/Lazarus
볼랜드포럼 홈
헤드라인 뉴스
IT 뉴스
공지사항
자유게시판
해피 브레이크
공동 프로젝트
구인/구직
회원 장터
건의사항
운영진 게시판
회원 메뉴
북마크
델마당
볼랜드포럼 광고 모집

델파이 Q&A
Delphi Programming Q&A
[802] [답변] SANGON/[질문] 혹시, "사업자등록번호"에 대해서
cmart2 [ ] 2189 읽음    1998-01-20 03:05
안녕하세요. 짱굽니다.

하이텔 비파툴에서 퍼왔습니다.

백원태   (wiancyan)
[참고] 주민등록/사업자 등록번호 체크         12/13 12:04   41 line

<주민등록번호 체크방법>
<주민등록번호 체크방법>

A B C D E F - G H I J K L M
5 4 0 1 2 3 - 1 2 3 1 2 2 8

SUM := (A*2) + (B*3) + (C*4) + (D*5) + (E*6) + (F*7)
     + (G*8) + (H*9) + (I*2) + (J*3) + (K*4) + (L*5)

SUM을 11로 나눈 나머지값을 11에서 뺀다.
(MODVALUE := 11 - (SUM mod 11))

M(주민등록번호 마지막자리)값이
MODVALUE를 10으로 나눈 나머지 값과 같으면 정확한 주민등록번호
(IF M = MODVALUE mod 10 THEN ....TRUE....;)

//***********************************************************//

<사업자등록번호 체크방법>

A B C - D E - F G H I J
1 2 2 - 8 1 - 1 8 5 7 0

XY := I * 5    // 7 * 5  = 35
XY := 35
X  := 3
Y  := 5

MN  := (X + Y + A + D + G)   //   (3 + 5 + 1 + 8 + 8)
     + ((B + E + H) * 3)     // + ((2 + 1 + 5) * 3)
     + ((C + F) * 7)         // + ((2 + 1) * 7)      = 70
MN := 70
M  := 7
N  := 0

10에서 N값을 뺀후 10으로 나눈 값의 나머지가
J(사업자등록번호의 마지막자리) 와 같으면 정확한 사업자 등록번호
(IF J = ((10 - N) mod 10) THEN .....TRUE....;)

그럼 존코딩 하세요.


+ -

관련 글 리스트
802 [답변] SANGON/[질문] 혹시, "사업자등록번호"에 대해서 cmart2 2189 1998/01/20
Google
Copyright © 1999-2015, borlandforum.com. All right reserved.