Ñêëîíåíèå ïî ïàäåæàì ÔÈÎ â 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
| Êîììåíòèðîâàòü | « Ïðåä. çàïèñü — Ê äíåâíèêó — Ñëåä. çàïèñü » | Ñòðàíèöû: [1] [Íîâûå] |