Private Sub IsGunu_Hesapla()

Dim GunSay As Integer, Hesapla_Tarih As Date

    If Me.Gun = 0 Then Exit Sub

    

    GunSay = 0

    Hesapla_Tarih = Me.Girilen_Tarih

    

    While GunSay < Me.Gun

        Hesapla_Tarih = Hesapla_Tarih + 1

        If Weekday(Hesapla_Tarih) >= 2 And Weekday(Hesapla_Tarih) <= 6 Then

            GunSay = GunSay + 1

        End If

    Wend

    Me.Bulunan_Tarih = Hesapla_Tarih

End Sub