dcsimg
Login | Register   
LinkedIn
Google+
Twitter
RSS Feed
Download our iPhone app
TODAY'S HEADLINES  |   ARTICLE ARCHIVE  |   FORUMS  |   TIP BANK
Browse DevX
Sign up for e-mail newsletters from DevX

By submitting your information, you agree that devx.com may send you DevX offers via email, phone and text message, as well as email offers about other products and services that DevX believes may be of interest to you. DevX will process your information in accordance with the Quinstreet Privacy Policy.


Tip of the Day
Language: VB4,VB5,VB6,VBS
Expertise: beginner
Jul 22, 2000

WEBINAR:

On-Demand

Building the Right Environment to Support AI, Machine Learning and Deep Learning


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 If

ExitMe:
    Exit Function

ErrorHandler:
    Err.Raise Err.Number, "IsValidSSN", Err.Description

End 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.
'#
'###########################################################
Steve Miller
 
Comment and Contribute

 

 

 

 

 


(Maximum characters: 1200). You have 1200 characters left.

 

 

Sitemap
Thanks for your registration, follow us on our social networks to keep up-to-date