Function hex1(dec,k)
dim temp,b,x
b=""
Do Until dec=0
temp = Int(dec / k)
x = dec Mod k
Select Case x
Case 10
x = "a"
Case 11
x = "b"
Case 12
x = "c"
Case 13
x = "d"
Case 14
x = "e"
Case 15
x = "f"
End Select
b=x&b
dec=temp
Loop
hex1 =b
End Function
2,10 8,10 rpm 10 rpm 16 rpm hex hex conversion, etc.
Guess you like
Origin blog.csdn.net/biao197/article/details/101314133
Ranking