주민번호 / 사업자번호 체크

Public Function  RegNoCheck(sID As String) As Boolean

    Dim Weight  As String '1~12자리까지 가중치
    Dim Total   As Integer
    Dim Chk     As Integer
    Dim Rmn     As Integer
    Dim i       As Integer
    Dim dt      As Integer
    Dim wt      As Integer
   
    RegNoCheck= False
   
    sID = Trim$(sID)
    If sID = "" Then Exit Function '공백인지 확인합니다.   

    If Mid$(sID, 7, 1) = "-" Then sID = Left$(sID, 6) & Mid$(sID, 8)
    If Len(sID) <> 13 Then Exit Function '13자리인지 확인합니다.

   
    Chk = Val(Right$(sID, 1))

    Weight = "234567892345" '가중치 값 대입

    Total = 0
    For i = 1 To 12
        dt = Val(Mid$(sID, i, 1)) '주민등록번호

        wt = Val(Mid$(Weight, i, 1)) '가중치

        Total = Total + (dt * wt)
    Next i

    Rmn = 11 - (Total Mod 11)
   
    If Rmn > 9 Then Rmn = Rmn Mod 10
   
    RegNoCheck = IIf(Rmn = Chk, True, False)
End Function

 

 

Public Function TaxNoCheck(ByVal strNo As String) As Boolean

Const COMPNO_LEN           As Byte = 10 '  사업자번호의 길이
Dim blnRet                              As Boolean   '  결과값
Dim aryNo(COMPNO_LEN) As Byte      '  문자열 배열
Dim bytCntNo                          As Byte      '  루프변수
Dim intMod                               As Integer   '  나머지숫자
Dim intInt                                   As Integer   '  소수점이하 절사값
Dim intSub                                As Integer   '  계산결과

 

If (Len(Trim(strNo)) = COMPNO_LEN) Then          '  사업자번호의 길이가 10자리라면
       For bytCntNo = 1 To COMPNO_LEN                 '  루프를 돌면서 바이트배열을 만든다
               aryNo(bytCntNo) = Val(Mid(strNo, bytCntNo, 1))
       Next bytCntNo
       intMod = ((aryNo(1) * 1) + _

                        (aryNo(2) * 3) + _

                        (aryNo(3) * 7) + _

                        (aryNo(4) * 1) + _

                        (aryNo(5) * 3) + _

                        (aryNo(6) * 7) + _

                        (aryNo(7) * 1) + _

                        (aryNo(8) * 3)) Mod COMPNO_LEN    '   나머지 숫자를 구한다
      intInt = Int(aryNo(9) * 5 / COMPNO_LEN)             '   소숫점이하를 절사하여 구한다
      intSub = (aryNo(9) * 5) - (intInt * 10)                      '   계산결과를 구한다
      intSub = (intMod + intInt + intSub) Mod 10
      intSub = IIf((intSub = 0), 10, intSub)                      '  체크섬을 확인하여 진위를 판별한다
      blnRet = (aryNo(COMPNO_LEN) = (COMPNO_LEN - intSub))

Else
      blnRet = False
End If

 

TaxNoCheck= blnRet                                                      '  결과를 대입한다
End Function

FORMAT함수 날짜관련

Format(Now(), "Long Date")

Format(Now(), "Short Date")

Format(Now(), "Long Time")

Format(Now(), "Short Time")

 

Format(Now(), "h:m:s")  

 

Format(Now(), "hh:mm:ss AMPM")  

 

Format(Now(), "dddd, mmm d yyyy")

 

가장 멋진 인생은??

가장 현명한 사람은 늘 배우려고 노력하는 사람이고,
가장 훌륭한 정치가는 떠나야 할 때가 되었다고 생각이 되면 후배에게 맡기고 미련없이 떠나는 사람이며,
가장 겸손한 사람은 개구리가 되어서도 올챙이적 시절을 잊지 않는 사람이다.
가장 넉넉한 사람은 자기한테 주어진 몫에 대하여 불평불만이 없는 사람이고,
가장 강한 사람은 타오르는 욕망을 스스로 자제할 수 있는 사람이며,

가장 겸손한 사람은 자신이 처한 현실에 대하여 감사하는 사람이다.
가장 존경받는 부자는 적시적소에 돈을 쓸 줄 아는 사람이고,
가장 건강한 사람은 늘 웃는 사람이며,
가장 인간성이 좋은 사람은 남에게 피해를 주지 않고 살아가는 사람이다.
가장 좋은 스승은 제자에게 자신이 가진 지식을 아낌없이 주는 사람이고,
가장 훌륭한 자식은 부모님의 마음을 상하지 않게 하는 사람이며,
가장 현명한 사람은 놀 때는 세상 모든 것을 잊고 놀며 일할 때는 오로지 일에만 전념하는 사람이다.
가장 좋은 인격은 자기 자신을 알고 겸손하게 처신하는 사람이고,
가장 부지런한 사람은 늘 일하는 사람이며,
가장 훌륭한 삶을 산 사람은 살아있을 때보다 죽었을 때 이름이 빛나는 사람이다..

연봉 1억 실수령액

 

1억 받아봐야 세금때고 하면..650만....ㅅㅍ

잡기만..늘고..--;

이 참에..보안관련 자격증이나.. 따 볼까...--;

 

----------------------------------------------------------

정보보안 관련 자격증은 SIS, CISSP, CISA 등이 있다.

정보보안 분야에서 3년 이상 경력을 쌓아야 응시할수 있는

국제공인정보시스템 보안전문가 자격증 (CISSP)과

최소 5년 이상 경력을 요하는 보안 전문가 자격증(CISA)은

국제적으로 권위를 인정받고 있다.

-----------------------------------------------------------------------------

 

관련분야 3년 이상..--; 덴당...쉬운게 없고나..--;

날짜비교

<SCRIPT LANGUAGE="JavaScript">
function addZero(n)

{
  return n < 10 ? "0" + n : n;
}

function checkDate()

{
  var d = new Date();
  var sss = form["date[]"].value;                   
  var input_date = sss.split("-");
                   
  var cur_year = d.getYear(); 
  var cur_month = addZero(d.getMonth()+1); 
  var cur_date = addZero(d.getDate());
                   
  var date1 = new Date(cur_year,cur_month,cur_date).valueOf();
  var date2 = new Date(input_date[0],input_date[1],input_date[2]).valueOf();
                   
  if (date2 - date1 < 0)

  {
     alert('입력날짜는 현재날짜보다 이전일 수 없습니다.');
     return;
  }

}
</SCRIPT>