Yardım TextBox Tarih Kısmı

darknessari

Yeni Üye
Katılım
4 Ocak 2021
Mesajlar
2
En iyi yanıt
0
Puanları
3
Yaş
31
Konum
istanbul
Ad Soyad
sinan sarı
Office Versiyon
2013
textoxa tarih ve saat satırları var. Ben textboxa tarih ayracı olarak "/" işaretini ve saat dakika ayracı olarak " : " işaretlerini textboxta sabit olmasını, örneğin tarih yazarken gün hanesini yazdıktan sonra / işaretini otomatik geçerek ay bölümüne imlecin geçmesini aynısını saat ve dakika kısmında da yapmak istiyorum. Yardımcı olursanız sevinirim.
Örnek:
textbox1 (../../....) şeklinde
texbox2 (..:..) şeklinde olmasını istiyorum.
 

Murat OSMA

Yönetici
Site Yöneticisi
Katılım
25 May 2018
Mesajlar
1,293
En iyi yanıt
9
Puanları
113
Konum
İstanbul
Web sitesi
excelarsivi.com
Ad Soyad
Murat OSMA
Office Versiyon
Office 365 TR+EN
Merhabalar,
Öncelikle bi' selâmınızı almak isterdik. ;)

Aşağıdaki kodları tarih kısmı için kullanabilirsiniz. Saatlere de uyarlayabilirsiniz.
C++:
Private Sub TextBox1_Change()
    Select Case Mid(TextBox1.Text, 1, 1)
        Case Is = 0, 1, 2
            Select Case Mid(TextBox1.Text, 2, 1)
                Case Is = 0, 1, 2, 3, 4, 5, 6, 7, 8, 9
                Case Else
                    TextBox1.Text = Mid(TextBox1.Text, 1, 1)
            End Select
        Case Is = 3
            Select Case Mid(TextBox1.Text, 2, 1)
                Case Is = 0, 1
                Case Else
                    TextBox1.Text = Mid(TextBox1.Text, 1, 1)
            End Select
        Case Else
            TextBox1.Text = Empty
    End Select
    
    Select Case Len(TextBox1.Text)
        Case Is = 2
            TextBox1.Text = TextBox1.Text & "/"
        Case Is = 5
            TextBox1.Text = TextBox1.Text & "/"
        Case Is >= 10
            If CLng(Mid(TextBox1.Text, 7, 4)) < 1901 Or _
            CLng(Mid(TextBox1.Text, 7, 4)) > 2100 Then
                MsgBox "Lütfen geçerli bir tarih giriniz", vbExclamation, "Www.ExcelArsivi.Com"
                TextBox1.Text = Empty
                Exit Sub
            Else
                TextBox1.Text = Mid(TextBox1.Text, 1, 10)
            End If
    End Select
    
    Select Case Mid(TextBox1.Text, 4, 1)
        Case Is = 0
        Case Is = 1
            Select Case Mid(TextBox1.Text, 5, 1)
                Case Is = 0, 1, 2
                Case Else
                    TextBox1.Text = Mid(TextBox1.Text, 1, 4)
            End Select
        Case Else
            TextBox1.Text = Mid(TextBox1.Text, 1, 3)
    End Select
End Sub

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    If Not IsDate(TextBox1.Text) Then
        MsgBox "Lütfen geçerli bir tarih giriniz", vbExclamation, "Www.ExcelArsivi.Com"
        TextBox1.Text = Empty
    End If
End Sub
 

darknessari

Yeni Üye
Katılım
4 Ocak 2021
Mesajlar
2
En iyi yanıt
0
Puanları
3
Yaş
31
Konum
istanbul
Ad Soyad
sinan sarı
Office Versiyon
2013
O zaman öncelikle selam vereyim ve dün yazdığım ilk mesaj olduğu için selam vermeyi unutmuşum. Selamımı verdikten sonra yardımın için ayrıca çok teşekkür ederim Murat Bey. Sorunsuz bir şekilde çalıştır. Ayrıca benim mesajıma istinaden formülleri textbox1 olarak yazmanızda ayrı bir incelik. :) Tekrar teşekkürler şimdi bunu saat için kendim ayarlamaya çalışacağım umarım becere bilirim. :)
 
Üst Alt