[주민번호 확인] 주민번호 확인 프로그램

등록일 2001.11.29 압축파일 (zip) | 15페이지 | 가격 500원

*해당 문서는 미리보기가 지원되지 않습니다.

컴파일 실행환경

없음

본문내용

Private Sub Command1_Click()

Dim juminf As Variant
Dim jumins As Variant
jumins = Text3.Text
juminf = Text2.Text

If Mid(jumins, 1, 1) = "1" And Len(jumins) = "7" And Len(juminf) = "6" Then
Text1.Text = Mid(juminf, 3, 2)
Text4.Text = Mid(juminf, 5, 2)
Check1.Value = 1
Check2.Value = 0
Check3.Value = 1
Check4.Value = 0

ElseIf Mid(jumins, 1, 1) = "2" And Len(jumins) = "7" And Len(juminf) = "6" Then
Text1.Text = Mid(juminf, 3, 2)
Text4.Text = Mid(juminf, 5, 2)
Check1.Value = 0
Check2.Value = 1
Check3.Value = 1
Check4.Value = 0




ElseIf Mid(jumins, 1, 1) = "2" Or Len(jumins) > "7" Or Len(juminf) > "6" Then
Text1.Text = Mid(juminf, 3, 2)

압축파일내 파일목록

완성주민.vbw
완성주민.vbp
      최근 구매한 회원 학교정보 보기
      1. 최근 2주간 다운받은 회원수와 학교정보이며
         구매한 본인의 구매정보도 함께 표시됩니다.
      2. 매시 정각마다 업데이트 됩니다. (02:00 ~ 21:00)
      3. 구매자의 학교정보가 없는 경우 기타로 표시됩니다.
      최근 본 자료더보기
      추천도서