[AP] 依某個符號拆解字串

'//依某個符號拆解字串

Function SP_GetEName(strEmpID As String) As String
Dim session As New notessession
Dim ws As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Dim db As NotesDatabase
Dim doc As NotesDocument
Dim docSys As NotesDocument
'
Dim ary As Variant

Set uidoc = ws.CurrentDocument
Set doc = uidoc.document
Set db = session.CurrentDatabase

Ary = Split(strEmpID, "/")
SP_GetEName = Ary(0)
End Function