Tarihte yılın rakamlarını textboxlara ayırma

[memduh]

arkadaşlar merhaba, Tarih te yıl bölümünü (örneğin 2009)un rakamlarını 4 adet textbox a yzdımak istiyorum. saygılar.

 

[Necdet]

Merhaba,

Kodları aşağıdaki şekilde kullanabilirsiniz.

Private Sub SpinButton1_SpinDown()
TextBox1.Value = TextBox1.Value - 1
Degistir
End Sub

Private Sub SpinButton1_SpinUp()
TextBox1.Value = TextBox1.Value + 1
Degistir
End Sub

Private Sub UserForm_Initialize()
TextBox1.Value = Year(Date)
Degistir
End Sub

Sub Degistir()
TextBox2.Value = Left(TextBox1.Value, 1)
TextBox3.Value = Mid(TextBox1.Value, 2, 1)
TextBox4.Value = Mid(TextBox1.Value, 3, 1)
TextBox5.Value = Right(TextBox1.Value, 1)
End Sub