진수 변환 시키기

' 진수 변환 함수
'    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진수 값으로 바꿔줌.. - 다음게시물에서 이것 적용하시면 될듯..

0 0