Soru Textboxa yıl ekleme

[sirkülasyon]

Hayırlı Cumalar
Ustam
Textbox4' de 01.05.2021 formatında tarih var.
Textbox5 içinde bulunulan yılın son gününü yazmasını 31.12.2021
Label8' e de Textbox4 ile textbox5 arasındaki tarih farkını gün olarak almasını yapabilmem için yardımcı olabilir misiniz?

 

[Korhan Ayhan]

Kendinize uyarlarsınız.

Private Sub UserForm_Initialize()
    TextBox4 = "01.05.2021"
    TextBox5 = VBA.Format(VBA.DateSerial(VBA.Year(TextBox4), 12, 31), "dd.mm.yyyy")
    Label8.Caption = VBA.CDate(TextBox5) - VBA.CDate(TextBox4)
End Sub

 

[sirkülasyon]

Ustam Teşekkür ederim.

 

[Muzaffer Ali]

Merhaba.
Alternatif olsun.

TextBox5.Text = "31.12." & Year(TextBox4.Text)
Label1.Caption = DateDiff("d", TextBox4.Text, TextBox5.Text)