devxlogo

IsValidSSN – Check a Social Security Number value

IsValidSSN – Check a Social Security Number value

' Validates attributes of the SSN' Returns True if valid, False if invalid''Example:'   If IsValidSSN(Value:="333-44-3333", IsRequired:=True) then ...Function IsValidSSN(ByRef Value As String, Optional ByVal IsRequired As Boolean _    = True) As Boolean    On Error GoTo ErrorHandler    Dim strTemp As String    Dim i As Integer    Dim intMax As Integer    IsValidSSN = True    Value = Trim$(Value)    If Value = "" Then        If IsRequired Then            IsValidSSN = False        Else            Exit Function        End If    End If    intMax = Len(Value)    For i = 1 To intMax        Select Case Mid$(Value, i, 1)            Case "0", "1", "2", "3", "4", "5", "6", "7", "8", "9"                strTemp = strTemp & Mid$(Value, i, 1)        End Select    Next i    Value = strTemp    If Len(Value)  9 Then        IsValidSSN = False    Else        Value = Left$(strTemp, 3) & "-" & Mid$(strTemp, 4, _            2) & "-" & Mid$(strTemp, 6, 4)    End IfExitMe:    Exit FunctionErrorHandler:    Err.Raise Err.Number, "IsValidSSN", Err.DescriptionEnd Function'###########################################################'#'#   This rountime has been brought to you by '#   Pragmatic Software Co. Inc, the creators of Defect Tracker, '#   the tool of choice for tracking functional specifications, '#   test cases and software bugs.'#   Learn more at http://www.DefectTracker.com.'#   Affiliate program also available at '#   http://www.PragmaticSW.com/AffiliateSignup.'#'###########################################################

devx-admin

Share the Post: