SpinButton ile artırma ve eksiltme

[sirkülasyon]

Private Sub SpinButton1_SpinDown() ve Private Sub SpinButton1_SpinUp() ile TextBox14 de olan tarihin formatını bozmadan sadece yıl kısmını nasıl artırıp azaltabilirim

 

[ÖmerFaruk]

'Textbox1 de hangi formatı kullandığınızı bilmeden yazıyorum
'Formatı ilgili yerlerde kendiniz belirleyebilirsiniz'   
Private Sub UserForm_Initialize()
    TextBox1 = Format("2.5.2021", "dd.mm.yyyy")
End Sub
Private Sub SpinButton1_SpinUp()
    TextBox1 = Format(DateAdd("yyyy", 1, CDate(TextBox1)), "dd.mm.yyyy")
End Sub

 

[sirkülasyon]

eksiltme için nasıl yapabilirim?

 

[ÖmerFaruk]

DateAdd("yyyy", -1, CDate(TextBox1))

 

[sirkülasyon]

Saygı ve Hürmet ile yardımınız için teşekkür ederim

 

[Orion1]

Buyurun.

Private Sub SpinButton1_SpinDown()
    TextBox1 = Format(DateAdd("yyyy", -1, CDate(TextBox1)), "dd.mm.yyyy")
End Sub

 

[sirkülasyon]

Evren Abi
Teşekkür ederim