calendar

[marimar]

merhaba arkadaşlar ekteki dosyada açılan formda textbox'a yazdığım tarih butona basınca calendar'da görünüyor ama 1930'dan önceki tarihler 20xx olarak 2050'den sonraki tarihler de 19xx olarak görünüyor.Bunu düzeltebilirmiyiz.
teşekkürler

 

[Korhan Ayhan]

Selamlar,

Formunuzdaki kodları aşağıdaki şekilde değiştirip denermisiniz.

Private Sub CommandButton1_Click()
If TextBox1 = "" Then
Calendar1.Value = Format(Date, "dd.mm.[B][COLOR=RED]yyyy[/COLOR][/B]")
Else
Calendar1.Value = Format(TextBox1, "dd.mm.[B][COLOR=RED]yyyy[/COLOR][/B]")
End If
TextBox1 = ""
End Sub

Private Sub UserForm_Initialize()
Calendar1.Value = Format(Date, "dd.mm.[B][COLOR=RED]yyyy[/COLOR][/B]")
End Sub

 

[Levent Menteşoğlu]

Kodu aşağıdaki ile değiştirin.

Private Sub CommandButton1_Click()
If TextBox1.Text = "" Then
Calendar1.Value = Date
Else
Calendar1.Value = TextBox1.Text
End If
TextBox1.Text = ""
End Sub