Access |
Private Declare Function GetPadeg Lib "D:\YandexDisk\\access\\Padeg.dll" Alias "GetFIOPadegFSAS" _ (ByVal pFIO As String, ByVal nPadeg As Integer, _ ByVal pResult As String, ByRef nLen As Integer) As Integer ' cFIO nPadeg Public Function MakePadeg(ByVal cFIO As String, _ ByVal nPadeg As Integer) As String Dim tmpS As String Dim nLen As Integer Dim RetVal As Integer nLen = 255 tmpS = String(nLen, 0) RetVal = GetPadeg(cFIO, nPadeg, tmpS, nLen) If RetVal = -1 Then MsgBox " - " & _ "(" & nPadeg & ")", , "" MakePadeg = Mid(tmpS, 1, nLen) Debug.Print MakePadeg End Function Function my() Debug.Print MakePadeg(" ", 5) End Function
http://www.sql.ru/forum/1097999/sklonenie-po-padezham-fio-v-access