'**********************************************************************************************************
' Nazwa:                roznicaTygodni
' Autor:                mielk | 2012-06-15
'
' Opis:                 Funkcja zwracająca różnicę tygodni pomiędzy dwiema datami.
'
' Argumenty:
'   dataPoczatkowa      Data początkowa.
'   dataKoncowa         Data końcowa.
'   pierwszyDzienTygodnia
'                       Argument opcjonalny.
'                       Określa, który dzień tygodnia ma być uznawany za pierwszy dzień tygodnia. Domyślna
'                       wartość to poniedziałek.
'
' Zwraca:
'   Long                Liczba tygodni jaka upłynęła od daty początkowej do daty końcowej.
'                       * Jeżeli obie daty przypadają w tym samym tygodniu, 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 roznicaTygodni(dataPoczatkowa As Date, dataKoncowa As Date, _
                                      Optional pierwszyDzienTygodnia As VBA.VbDayOfWeek = vbMonday) As Long
    Const NAZWA_METODY As String = "roznicaTygodni"
    '------------------------------------------------------------------------------------------------------

    roznicaTygodni = VBA.DateDiff("ww", dataPoczatkowa, dataKoncowa, pierwszyDzienTygodnia, _
                                                                                        VBA.vbFirstFourDays)
    
End Function