Çözüldü Tarih Hesaplama

sirkülasyon

Altın Üye
Katılım
10 Temmuz 2012
Mesajlar
2,471
Excel Vers. ve Dili
2021 LTSC TR
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

Altın Üye
Katılım
10 Temmuz 2012
Mesajlar
2,471
Excel Vers. ve Dili
2021 LTSC TR
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

𐱅𐰇𐰼𐰚
Katılım
7 Temmuz 2004
Mesajlar
12,271
Excel Vers. ve Dili
64 Bit 2010 - İngilizce
+
Google Sheets
+
JScript
Buna benzer bir kod deneyin ....

Kod:
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

Altın Üye
Katılım
10 Temmuz 2012
Mesajlar
2,471
Excel Vers. ve Dili
2021 LTSC TR
Haluk abi teşekkür ederim
Sağ olasın
Çıkarmaya da örnek verebilir misiniz?
 
Son düzenleme:
Üst