aşağıdaki kod istenirse resmi tatilleri de devre dışı bırakır
eğer resmi tatil de hesaplanacaksa fonksiyon aşağıdaki gibi kullanılır

GunEkle(Tarih , eklenecek gün)

eğer resmi tatil hesaplanmayacaksa fonksiyon aşağıdaki gibi kullanılır

GunEkle(Tarih , eklenecek gün,false)

Function GunEkle(Trh As Date, GnEk As Long, Optional RsmTtl As Boolean = True) As Date

GnSy = 0

RsmGun = "0101;2304;0105;1905;1507;3008;2910"

    Do While GnSy < GnEk

        Trh = Trh + 1

        HftSnTtl = IIf(Trh Mod 7 < 2, 1, 0)

        RsmTtlE = InStr(RsmGun, Format(Trh, "ddmm"))

        If RsmTtl = False Then RsmTtlE = 0

        Ekle = HftSnTtl + RsmTtlE

        If Ekle = 0 Then GnSy = GnSy + 1

    Loop

GunEkle = Trh

End Function