Visual Basic FAQ

Данный код написан на VB.NET переделать под Vb 6.0 несоставит труда=)

Private Function HexToDec(ByVal strHex As String) As Long
    Dim result As Long
    Dim i As Integer
    Dim IntFromHex As Integer
    For i = 0 To strHex.Length - 1
        Select Case strHex(i)
            Case "A"
                IntFromHex = 10
            Case "B"
                IntFromHex = 11
            Case "C"
                IntFromHex = 12
            Case "D"
                IntFromHex = 13
            Case "E"
                IntFromHex = 14
            Case "F"
                IntFromHex = 15
            Case Else
                If IsNumeric(strHex(i)) Then
                    IntFromHex = CInt(strHex(i).ToString)
                End If
            End Select
        result += IntFromHex * 16 ^ (strHex.Length - i - 1)
    Next
    Return result
End Function

Запись опубликована on 03.09.2008 at 12:11 и размещена в рубрике: Арифметика. Вы можете читать комментарии, используя RSS-ленту. Вы можете оставить комментарий, или отправить трекбек с Вашего сайта.