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
Buyrun, inceleyin.
Bildiğini bilenin arkasından git, bildiğini bilmeyeni uyar, bilmediğini bilene öğret, bilmediğini bilmeyenden kaç.
Konfüçyüs
Konfüçyüs