Private Function json_StringIsLargeNumber()

in spreadsheet/JsonConverter.bas [751:777]

• 16 lines of code
• 4 McCabe index (conditional complexity)

Private Function json_StringIsLargeNumber(json_String As Variant) As Boolean
    
    

    Dim json_Length As Long
    Dim json_CharIndex As Long
    json_Length = VBA.Len(json_String)

    
    If json_Length >= 16 And json_Length <= 100 Then
        Dim json_CharCode As String

        json_StringIsLargeNumber = True

        For json_CharIndex = 1 To json_Length
            json_CharCode = VBA.Asc(VBA.Mid$(json_String, json_CharIndex, 1))
            Select Case json_CharCode
            
            Case 46, 48 To 57, 69, 101
                
            Case Else
                json_StringIsLargeNumber = False
                Exit Function
            End Select
        Next json_CharIndex
    End If
End Function