본문 바로가기
Program

진수 변환 시키기

본문

' 진수 변환 함수
'    val : 값
'    notation : 진수
Function changeNotation(val, notation)
    dim retVal, c_mod
    dim ref : ref = "0123456789ABCDEFGHILKLMNOPQRSTUVWXYZabcdefghilklmnopqrstuvwxyz"
   
    do while (val > 0)
        c_mod = val mod notation
        val = fix(val/notation)
   
        if c_mod <> "" then
            c_mod = mid(ref ,c_mod+1,1)
            retVal = c_mod & retVal
        end if
    loop
    changeNotation = retVal
End Function

데브피아 답변남기다가..만든 함수..



test2 = changeNotation(15,2)   ' 이렇게 하면 15란 값을 2진수으로 변환시켜 줍니다.
test16= changeNotation(255,16) ' 이건 255란 값을 16진수로
test62= changeNotation(3455,62)' 3455를 62진수 값으로 바꿔줌.. - 다음게시물에서 이것 적용하시면 될듯..
[이 게시물은 듀라님에 의해 2015-04-03 10:08:13 워드프레스에서 이동 됨]
[이 게시물은 듀라님에 의해 2015-04-03 10:27:24 Public에서 이동 됨]
[이 게시물은 듀라님에 의해 2015-04-03 10:33:53 팁과강좌에서 이동 됨]
[이 게시물은 최고관리자님에 의해 2017-06-10 14:24:30 ASP에서 이동 됨]
0 0
  • 페이스북으로 보내기
  • 트위터로 보내기
  • 구글플러스로 보내기
  • 카카오톡으로 보내기

페이지 정보

l2j (121.♡.101.20) 작성일07-05-02 14:47 조회1,793회 댓글0건

댓글목록

등록된 댓글이 없습니다.

Program 목록

게시물 검색

사이트 정보

  • 회사명 회사명 / 대표 대표자명
  • 주소 OO도 OO시 OO구 OO동 123-45
  • 사업자 등록번호 123-45-67890
  • 전화 02-123-4567 / 팩스 02-123-4568
  • 통신판매업신고번호 제 OO구 - 123호
  • 개인정보관리책임자 정보책임자명

고객센터

  • 02-1234-5678
  • abc@abc.com
  • 월-금 am 11:00 - pm 05:00
  • 점심시간 : am 12:00 - pm 01:00
  • 주말&공휴일은 1:1문의하기를 이용하세요.
상단으로