Soru tarih Formatı

[sirkülasyon]

Private Sub TextBox1_Change()
If Len(Me.TextBox1.Value) = 8 Then
    With Me.TextBox1
        gun = Left(.Value, 2)
        ay = Mid(.Value, 3, 2)
        sene = Mid(.Value, 5, 4)
        .Value = gun & "." & ay & "." & sene
    End With
End If
End Sub

Textbox (1, 4,11,19,23,32)' lara tek tek yukarıda ki kodu yazmak yerine döngü ile tek seferde yazabilir miyiz?

Rica etsem yardımcı olabilir misiniz?

 

[YUSUF44]

Verdiğiniz sayılar arasında belirli bir bağıntı olsaydı belki olabilirdi ama 1, 4, 11, 19, 23, 32 sayıları arasında döngü ile elde edilebilecek bir düzen bulamadım.

 

[Korhan Ayhan]

Formunuzun kod bölümüne uygulayıp deneyiniz.

Option Explicit

Sub Tarih_Yaz(Nesne As MSForms.TextBox)
    If Len(Nesne.Value) = 8 Then
        If InStr(1, Nesne.Value, ".") > 0 Or InStr(1, Nesne.Value, "-") > 0 Or InStr(1, Nesne.Value, "/") > 0 Then
            Select Case Replace(Nesne.Name, "TextBox", "")
                Case 1, 4, 11, 19, 23, 32
                Nesne.Value = Format(CDate(Nesne.Value), "dd.mm.yyyy")
            End Select
        Else
            MsgBox "Lütfen tarih biçiminde veri girişi yapınız!", vbCritical
            Nesne.Value = ""
        End If
    End If
End Sub

Private Sub TextBox1_Change()
    Tarih_Yaz Me.ActiveControl
End Sub

Private Sub TextBox11_Change()
    Tarih_Yaz Me.ActiveControl
End Sub

Private Sub TextBox19_Change()
    Tarih_Yaz Me.ActiveControl
End Sub

Private Sub TextBox23_Change()
    Tarih_Yaz Me.ActiveControl
End Sub

Private Sub TextBox32_Change()
    Tarih_Yaz Me.ActiveControl
End Sub

Private Sub TextBox4_Change()
    Tarih_Yaz Me.ActiveControl
End Sub

 

[sirkülasyon]

Korhan Abi
Teşekkür ederim. Ellerine sağlık