SpinButton ile tarih değiştirmek

[acolkesen1]

Merhaba arkadaşlar. SpinButton ile textboxdaki tarihi birer gün arttırmak veya azaltmak istiyorum.İlgilenen arkadaşlara teşekkür ederim.

 

[Merhum İdris SERDAR]

Merhaba arkadaşlar. SpinButton ile textboxdaki tarihi birer gün arttırmak veya azaltmak istiyorum.İlgilenen arkadaşlara teşekkür ederim.

.

Kodlarınızı silin yerine:

Private Sub SpinButton1_SpinDown()
TextBox1.Text = Format(CDate(TextBox1.Text) - _
    CDate(SpinButton1.SmallChange), "dd/mm/yyyy")
End Sub

Private Sub SpinButton1_SpinUp()
TextBox1.Text = Format(CDate(TextBox1.Text) + _
    CDate(SpinButton1.SmallChange), "dd/mm/yyyy")
End Sub

Private Sub UserForm_Initialize()
TextBox1.Text = Format(Date, "dd/mm/yyyy")
End Sub

yazın.

.

 

[acolkesen1]

Çok teşekkür ederim sayın yurttaş.. Esen kalın..