ይዞታዎች

# የ ሄክስ ተግባር

ይመልሳል ሀረግ የሚወክል የ ሄክሳ ዴሲማል ዋጋ ለ ቁጥር

## አገባብ:

    ሄክሳ ዴሲማል (ቁጥር)

## ይመልሳል ዋጋ:

ሐረግ

## ደንቦች:

ቁጥር: ማንኛውም የ ቁጥር መግለጫ እርስዎ መቀየር የሚፈልጉት ወደ ሄክሳ ዴሲማል ቁጥር

### የ ስህተት ኮዶች:

5 ዋጋ የሌለው የ አሰራር ጥሪ

## ለምሳሌ:

    Sub ExampleHex
    ' uses BasicFormulas in LibreOffice Calc
    Dim a2, b2, c2 As String
        a2 = "&H3E8"
        b2 = Hex2Lng(a2)
        MsgBox b2
        c2 = Lng2Hex(b2)
        MsgBox c2
    End Sub

    Function Hex2Lng(sHex As String) As Long
    ' Returns a 32-bit signed integer number from an 8-digit hexadecimal value.
        Hex2Lng = clng( sHex )
    End Function

    Function Lng2Hex(iLong As Long) As String
    ' Calculates the 8-digit hexadecimal value out of a 32-bit signed integer number.
        Lng2Hex = "&H" & Hex( iLong )
    End Function

Please support us!