Option Explicit

'КОНСТАНТЫ ПАДЕЖЕЙ
'-----------------------------------------------------
Public Const pNon As Long = 0    ' Не определен
Public Const pImn As Long = 1    ' Именительный Кто? Что?
Public Const pRod As Long = 2    ' Родительный Кого? Чего?
Public Const pDat As Long = 3    ' Дательный Давать Кому? Чему?
Public Const pVin As Long = 4    ' Винительный Винить Кого? Что?
Public Const pTvr As Long = 5    ' Творительный Доволен Кем? Чем?
Public Const pPre As Long = 6    ' Предложный Думать О ком? О чем? В ком? В чем?

Private Declare Function GetPadeg Lib "Padeg.dll" Alias "GetFIOPadegFSAS" _
  (ByVal pFIO As String, ByVal nPadeg As Long, ByVal pResult As String, _
   ByRef nLen As Long) As Integer

Private Declare Function GetNominativePadeg Lib "Padeg.dll" _
  (ByVal pFIO As String, ByVal pResult As String, ByRef nLen As Long) As Integer

Private Declare Function GetAppointmentPadeg Lib "Padeg.dll" _
  (ByVal pAppointment As String, ByVal nPadeg As Long, ByVal pResult As String, _
   ByRef nLen As Long) As Integer

Private Declare Function GetFullAppointmentPadeg Lib "Padeg.dll" _
  (ByVal pAppointment As String, ByVal pOffice As String, ByVal nPadeg As Long, ByVal pResult As String, _
   ByRef nLen As Long) As Integer

Private Declare Function GetPadegAs Lib "Padeg.dll" Alias "GetFIOPadegAS" _
  (ByVal pLname As String, ByVal pFname As String, ByVal pMname As String, ByVal nPadeg As Long, ByVal pResult As String, _
   ByRef nLen As Long) As Integer

Private Declare Function GetPadegFS Lib "Padeg.dll" Alias "GetFIOPadegFS" _
  (ByVal pFIO As String, ByVal bSex As Boolean, ByVal nPadeg As Long, ByVal pResult As String, _
   ByRef nLen As Long) As Integer

Public Function FIOPadegFS(ByVal cFIO As String, ByVal SexM As Boolean, ByVal nPadeg As Long) As String
Dim tmpS As String
Dim nLen As Long
Dim RetVal As Integer
  nLen = 255
  tmpS = String(nLen, 0)
  RetVal = GetPadegFS(cFIO, SexM, nPadeg, tmpS, nLen)
  If RetVal = -1 Then MsgBox "Недопустимое значение падежа - " & _
                             "(" & nPadeg & ")", , "Склонение ФИО"
  FIOPadegFS = Mid(tmpS, 1, nLen)
End Function

Public Function PosPadeg(ByVal cApp As String, ByVal nPadeg As Long) As String
Dim tmpS As String
Dim nLen As Long
Dim RetVal As Integer
  nLen = 255
  tmpS = String(nLen, 0)
  RetVal = GetAppointmentPadeg(cApp, nPadeg, tmpS, nLen)
  If RetVal = -1 Then MsgBox "Недопустимое значение падежа - " & _
                             "(" & nPadeg & ")", , "Склонение Должности"
  PosPadeg = Mid(tmpS, 1, nLen)
End Function