Character to number

[olimonty]

Hello guys,

I'm having a little issue right now with a function. When the user enter a caracter, I need to convert this caracter in number.

Function Convert(ByVal Value As String) As Integer
If Value= "A" Then
    Convert = 10
ElseIf Value = "B" Then
    Convert = 11
ElseIf Value = "C" Then
    Convert = 12
ElseIf Value = "D" Then
    Convert = 13
ElseIf Value = "E" Then
    Convert = 14
ElseIf Value = "F" Then
    Convert = 15
Else: Convert = Value
End If
End Function

Thank you

[Aussiebear]

Try a Case select method

Function Convert(ByVal Value As String) As Integer
    Select Case Value
        Case "A"
            Convert = 10
        Case "B"
            Convert = 11
        Case "C"
            Convert = 12
        Case "D"
            Convert = 13
        Case "E"
            Convert = 14
        Case "F"
            Convert = 15
        Case Else
              ' Assuming Value should be converted to an integer if it's not A-F
              ' You might want to add error handling here if Value isn't always a valid number
              If IsNumeric(Value) Then
                  Convert = CInt(Value)
              Else
                   ' Handle the case where Value is not A-F and not a number
                   ' For example:                
                   Convert = 0 
                   ' Or raise an error, or return a specific error code
              End If
        End Select
End Function

[June7]

Doubt OP is still hanging around looking for answer so we'll never know if they found resolution. And their code works anyway except for case sensitivity. Maybe that's what they were dealing with.

Instead of If Then or Select Case, could:

Convert = Asc(UCase(Value)) - 55

Could even calc in query or textbox without VBA.

[June7]

Oops, disregard my comment about case sensitivity. Unfortunately, can no longer edit my earlier post.

[arnelgp]

Public Function Convert(Byval Value As String) As Integer
On Error Resume Next
Convert = CInt("&H" & Value)
End Function

[June7]

Nice, arnel. And again, can be expression in query or textbox.