안녕하세요

출처!!~ 천리안 프로그래머 포럼(pdspf)" 에서 가져 왔습니다(델파이)
빌더로 컴버트 합니다~~

bool  CheckSaUpJaBunHo(char *No)
{
  const int Weight[8] = {1, 3, 7, 1, 3, 7, 1, 3};
  AnsiString TempStr;
  int Loop, Sum;
  bool result = true;

  Sum = 0;
  for (Loop= 0; Loop < 8; Loop++)  {
    Sum = Sum + StrToInt(No[Loop]) * Weight[Loop];
  }
  Loop = StrToInt(No[8]) * 5;
  Sum = Sum + (Loop / 10) + (Loop % 10);
  Sum = Sum % 10;
  if (Sum == 0) TempStr = "0";
  else TempStr = IntToStr(10 - Sum);
  if (TempStr != No[9]) result = false;
    return result;
}

void __fastcall TForm1::Button1Click(TObject *Sender)
{
  AnsiString SN = "3158100589";
  if (!CheckSaUpJaBunHo(SN.c_str())) {
    ShowMessage("사업자번호가 잘못되었습니다.");
  }
}

즐거운 하루 되십시요~~

병아리 님이 쓰신 글 :
: 안냐세요~
: 사업자등록번호 체크하는법을 알고싶은데요..
: 델파이소스는 봤는데 도데체 뭐가뭔지.... ㅠ.ㅠ
: 부탁드립니다..
: