PUBLIC FUNCTION D_TO_B (BYVAL DEC AS Long) AS STRING DO D_TO_B = DEC MOD 2 & D_TO_B DEC = Dec / 2 Loop While Decend Function
Public Function B_TO_D (BYVAL BIN AS STRING) AS INTEGER DIM I as Long for i = 1 to LEN (BIN) B_TO_D = B_TO_D * 2 VAL (MID (BIN, I, 1)) Next Ind Function
Public Function H_TO_B (BYVAL HEX As String) AS STRING DIM I As Long Dim B AS String Hex = Ucase (HEX) for i = 1 to Len (HEX) SELECT CASE MID (HEX, I, 1) Case "0": b = B & "0000" CASE "1": b = b & "0001" Case "2": b = b & "0010" Case "3": b = b & "0011" Case "4": b = b & "0100" Case "5": B = B & "0101" Case "6": B = B & "0110" Case "7": B = B & "0111" Case "8": b = b & " 1000 "CASE" 9 ": B = B &" 1001 "Case" a ": b = b &" 1010 "Case" B ": B = B &" 1011 "Case" C ": B = B &" 1100 " Case "D": B = B & "1101" Case "E": b = b & "1110" CASE "f": b = b & "1111" End SELECT NEXT I while Left (b, 1) = "0 "B = Right (b, len (b) - 1) Wend h_to_b = bend function
