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


Tip of the Day
Language: VB4,VB5,VB6
Expertise: beginner
Oct 14, 2000

ConvertReverseFullName - Convert a reverse name to the "FirstName LastName" format

' convert a reversed full name back to the "FirstName LastName" format
'
' for example, ConvertReverseFullName("Smith, John A.") ==> "John A. Smith"

Function ConvertReverseFullName(ByVal ReverseFullName As String) As String
    Dim i As Long
    
    ReverseFullName = Trim$(ReverseFullName)
    i = InStr(ReverseFullName, ",")
    If i = 0 Then
        ' no comma, just return the argument
        ConvertReverseFullName = ReverseFullName
    Else
        ' exchange first and last name
        ConvertReverseFullName = Mid$(ReverseFullName, _
            i + 1) & " " & Left$(ReverseFullName, i - 1)
    End If
    
End Function
Francesco Balena
 
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