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

FormatFullName - Create a full name in the format "LastName, FirstName"

' Takes a first and last name and converts it to the format LastName, FirstName

Function FormatFullName(ByVal FirstName As String, ByVal LastName As String) As _
    String
    FirstName = Trim$(FirstName)
    LastName = Trim$(LastName)
    
    If FirstName = "" Then
        ' If they only have a first name, return it.
        FormatFullName = LastName
    ElseIf LastName = "" Then
        ' If they only have a last name, return it.
        FormatFullName = FirstName
    Else
        FormatFullName = LastName & ", " & FirstName
    End If
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