公共函數OCT_to_DEC(字符串形式的ByVal Oct)為Long
暗淡我壹樣長
Dim B As Long
對於i = 1到Len(Oct)
選擇案例Mid(Oct，Len(Oct) - i + 1，1)
案例“0”:b = b+8 ^(I-1)* 0
案例“1”:b = b+8 ^(I-1)* 1
案例“2”:b = b+8 ^(I-1)* 2
案例“3”:b = b+8 ^(I-1)* 3
案例“4”:b = b+8 ^(I-1)* 4
案例“5”:b = b+8 ^(I-1)* 5
案例“6”:b = b+8 ^(I-1)* 6
案例“7”:b = b+8 ^(I-1)* 7
結束選擇
接下來我
十月至十二月= B
結束功能
擴展數據:
將十六進制轉換為二進制
公共函數HEX_to_BIN(ByVal Hex As String)作為字符串
暗淡我壹樣長
將B標註為字符串
Hex = UCase(十六進制)
對於i = 1到Len(十六進制)
選擇大小寫中間值(十六進制，I，1)
情況“0”:B = B&放大器；"0000
案例“1”:B = B& amp；"0001"
案例“2”:B = B& amp；"0010"
案例“3”:B = B& amp；"0011"
案例“4”:B = B& amp；"0100"
案例“5”:B = B& amp；"0101"
案例“6”:B = B& amp；"0110"
案例“7”:B = B& amp；"0111"
案例“8”:B = B& amp；"1000"
案例“9”:B = B& amp；"1001"
案例“A”:B = B& amp；"1010"
案例“B”:B = B& amp；"1011"
案例“C”:B = B& amp；"1100"
案例“D”:B = B& amp；"1101"
案例“E”:B = B& amp；"1110"
案例“F”:B = B& amp；"1111"
結束選擇
接下來我
而Left(B，1) = "0 "
B =右(B，Len(B) - 1)
行
HEX_to_BIN = B
結束功能