devxlogo

ConvertReverseFullName – Convert a reverse name to the “FirstName LastName” format

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

devx-admin

Share the Post: