Convert Access Module to SQL Function - Hex To Dec conversion

Question

I need to convert an Access Module to a SQL Function but not sure how to successfully accomplish this.
The module has several different functions to convert hexadecimal numbers to decimal and vice versa. I am not sure if I needed to break out each module function into a seperate function in SQL or not. Any help would be appreciated.
Here is the actual module that needs to be converted:
Public Function MEID_DecToHex(mMEIDDec As String) As String
    'Dim mMEIDDec As String
    Dim mManNum As Double
    Dim mSerialNum As Double
    Dim mMEIDHex As String
    Dim mManHex As String
    Dim mSerialHex As String
    'mMEIDDec = "268435457304109828"
    '*** Check MEID digits, make sure it is 18 digits else return invalid
    If Len(mMEIDDec) = 18 Then
        '*** 18 digit decimal code: 1st 10 digits is for the Manufacturer and last 8 digits is for the Serial Number
        mManNum = Left(mMEIDDec, 10)
        mSerialNum = Right(mMEIDDec, 8)
        '*** Convert MEID Dec to Hex
        mManHex = DecToHex(mManNum)
        mManHex = fntPad(mManHex, "0", 8)
        mSerialHex = DecToHex(mSerialNum)
        mSerialHex = fntPad(mSerialHex, "0", 6)
        MEID_DecToHex = mManHex & mSerialHex
    ElseIf Len(mMEIDDec) = 11 Then
        '*** 11 digit decimal code: 1st 3 digits is for the Manufacturer and last 8 digits is for the Serial Number
        mManNum = Left(mMEIDDec, 3)
        mSerialNum = Right(mMEIDDec, 8)
        '*** Convert MEID Dec to Hex
        mManHex = DecToHex(mManNum)
        mManHex = fntPad(mManHex, "0", 2)
        mSerialHex = DecToHex(mSerialNum)
        mSerialHex = fntPad(mSerialHex, "0", 6)
        MEID_DecToHex = mManHex & mSerialHex
    Else
        MEID_DecToHex = "Invalid"
    End If
End Function
Public Function MEID_HexToDec(mMEIDHex As String) As String
    'Dim mMEIDDec As String
    Dim mManNum As String
    Dim mSerialNum As String
    'Dim mMEIDHex As String
    Dim mManDec As String
    Dim mSerialDec As String
    'mMEIDHex = "a000001937b27a"
    ' Remove any spaces befor or after the string
    mMEIDHex = Trim(mMEIDHex)
    '*** Check MEID digits, make sure it is 14 digits else return invalid
    If Len(mMEIDHex) = 14 Then
        '*** 14 hexadecimal digits: 1st 8 digits is for the Manufacturer and last 6 digits is for the Serial Number
        mManNum = Left(mMEIDHex, 8)
        mSerialNum = Right(mMEIDHex, 6)
        '*** Convert MEID Hex to Dec
        mManDec = HexToDec(mManNum)
        mManDec = fntPad(mManDec, "0", 10)
        mSerialDec = HexToDec(mSerialNum)
        mSerialDec = fntPad(mSerialDec, "0", 8)
        MEID_HexToDec = mManDec & mSerialDec
    ElseIf Len(mMEIDHex) = 8 Then
        '*** 8 digit Hex code: 1st 2 digits is for the Manufacturer and last 6 digits is for the Serial Number
        mManNum = Left(mMEIDHex, 2)
        mSerialNum = Right(mMEIDHex, 6)
        '*** Convert MEID Dec to Hex
        mManDec = HexToDec(mManNum)
        mManDec = fntPad(mManDec, "0", 3)
        mSerialDec = HexToDec(mSerialNum)
        mSerialDec = fntPad(mSerialDec, "0", 8)
        MEID_HexToDec = mManDec & mSerialDec
    Else
        MEID_HexToDec = "Invalid"
    End If
End Function

Answer 1

Try link
you can create & use CLR function
or you can simply convert on fly refer below link
http://blog.sqlauthority.com/2010/02/01/sql-server-question-how-to-convert-hex-to-decimal/
http://blog.sqlauthority.com/2012/07/26/sql-server-answer-how-to-convert-hex-to-decimal-or-int/
decimal to hex
http://stackoverflow.com/questions/13643729/decimal-to-hex-conversion-in-sql-server-2008