userform da iki adet textbox umuz var, bu textboxlara tarih gireceğiz, örneğin textboxlara 26/8 yazıp enter e bastığımızda 26/08/2005 görünmesini sağlayabilir miyiz?
[vb:1:e1798d952a]Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox1 = Format(TextBox1, "dd""/""mm""/""yyyy")
End Sub
[/vb:1:e1798d952a]
Sn.Leventm Ayni kodu
Private Sub r_baslangic_Exit(ByVal Cancel As MSForms.ReturnBoolean)
r_baslangic = Format(r_baslangic, "dd""/""mm""/""yyyy")
End Sub
gibi kendi calismama uyarladim.
Fakat;textboxa 01012005 girdigimde tarih=09/10/4670 oluyor.neden acaba?
[vb:1:17009c9b77]Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If Len(TextBox1) < 8 Then
MsgBox "En az sekiz rakam yazılmalıdır"
Exit Sub
End If
tar = Left(TextBox1, 2) & "." & Mid(TextBox1, 3, 2) & "." & Right(TextBox1, 4)
TextBox1 = Format(tar, "dd""/""mm""/""yyyy")
End Sub
[/vb:1:17009c9b77]
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.