'**********************************************************************************************************
' Nazwa:                roznicaMiesiecy
' Autor:                mielk | 2012-06-15
'
' Opis:                 Funkcja oblicza różnicę miesięcy pomiędzy dwiema datami.
'
' Argumenty:
'   dataPoczatkowa      Data początkowa.
'   dataKoncowa         Data końcowa.
'
' Zwraca:
'   Long                Liczba miesięcy pomiędzy dwiema datami.
'                       * Jeżeli obie daty przypadają w tym samym miesiącu, zwracana jest wartość 0.
'                       * Jeżeli data początkowa jest późniejsza niż końcowa, zwracana jest liczba ujemna.
'
'
' --- Zmiany ----------------------------------------------------------------------------------------------
' 2012-06-15       mielk       Utworzenie funkcji.
'**********************************************************************************************************
Public Function roznicaMiesiecy(dataPoczatkowa As Date, dataKoncowa As Date) As Long
    Const NAZWA_METODY As String = "roznicaMiesiecy"
    '------------------------------------------------------------------------------------------------------

    roznicaMiesiecy = VBA.DateDiff("m", dataPoczatkowa, dataKoncowa)

End Function