[VB 6.0] Перевести число из шестнадцатеричной в десятичную систему

Function ConvertDec(heximal) As Long Dim Simvol As String Dim DesChislo As Long Dim x As Long ConvertDec = 0 For x = 1 To Len(heximal) Simvol = Mid(heximal, x, 1) If UCase(Simvol) = "A" Then DesChislo = 10 ElseIf UCase(Simvol) = "B" Then DesChislo = 11 ElseIf UCase(Simvol) = "C" Then DesChislo = 12 ElseIf UCase(Simvol) = "D" Then DesChislo = 13 ElseIf UCase(Simvol) = "E" Then DesChislo = 14 ElseIf UCase(Simvol) = "F" Then DesChislo = 15 Else DesChislo = Val(Simvol) End If ConvertDec = ConvertDec + DesChislo * 16 ^ (Len(heximal) - x) Next x End Function

 

« Пред.		След. »