devxlogo

FormatFullName – Create a full name in the format “LastName, FirstName”

FormatFullName – Create a full name in the format “LastName, FirstName”

' Takes a first and last name and converts it to the format LastName, FirstNameFunction 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 IfEnd 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: