ник: ?.?.
Re[1]: но он работает в старой копии моей бызы, в в новой нет. FIOFull =Иванов Петр Сергеевич в стандартной форме
FIOC= Иванов П.С.
Public Function FIOC(FIOFull) As String
Static i As Long
If "" & FIOFull = "" Then Exit Function
i = InStr(FIOFull, " ")
If i = 0 Then FIOC = FIOFull: Exit Function
FIOC = Mid(FIOFull, 1, i + 1) + "."
i = InStr(i + 1, FIOFull, " ")
If i = 0 Then Exit Function
FIOC = FIOC + Mid(FIOFull, i + 1, 1) + "."
End Function