Çözüldü Tarih Hesaplama

[sirkülasyon]

Form üzerinde
Textbox16 içerisine Görevlendirme Tarihi yazılı (16.06.2019)
Textbox17 içerisine 4 (yıl)
Textbox18 içerisine 11 (ay)
Textbox19 içerisine 9 (gün) yazılırsa
Textbox20 içerisine Görevlendirmenin bittiği (4 yıl, 11 ay, 9 gün) tarihi nasıl hesaplattırma yaptırabilirim?
Saygılarımla

 

[sirkülasyon]

Dim Tarih As Date, YeniTarih As Date
Tarih = TextBox16.Value
YeniTarih = DateSerial(Year(Tarih) + CLng(TextBox17.Value), Month(Tarih) + CLng(TextBox18.Value), Day(Tarih) + (TextBox19.Value))
TextBox20.Value = Format(YeniTarih, "dd.mm.yyyy")

kodunu Textbox20 içine yazdığım zaman hata veriyor

 

[Haluk]

Buna benzer bir kod deneyin ....

Private Sub CommandButton1_Click()
    Baslangic_Tarihi = CDate(TextBox1)
    Eklenecek_Yil = Val(TextBox2)
    Eklenecek_Ay = Val(TextBox3)
    Eklenecek_Gun = Val(TextBox4)
    
    tempTarih = DateAdd("yyyy", Eklenecek_Yil, Baslangic_Tarihi)
    tempTarih = DateAdd("m", Eklenecek_Ay, tempTarih)
    tempTarih = DateAdd("d", Eklenecek_Gun, tempTarih)
    
    TextBox5 = Format(CDate(tempTarih), "dd.mm.yyyy")
End Sub

.

 

[sirkülasyon]

Haluk abi teşekkür ederim
Sağ olasın
Çıkarmaya da örnek verebilir misiniz?