Tarih Formatı

[Yüksel Varlı]

Merhaba,
Textbox'un çıkış olayına aşağıdaki kodu yazıyorum. Ancak (01122009) gibi başı 0 ile başlayan bir tarih girince, text box ta (1.12.2009) şeklinde görünüyor. Bu sorunu nasıl çözebiliriz?
Selamlar

Private Sub doğum_Exit(ByVal Cancel As MSForms.ReturnBoolean)
doğum.Text = Format(doğum.Text, "##"".""##"".""####")
End Sub

 

[security]

Ekli Dosyayı İnceliyiniz.

 

[Yüksel Varlı]

Syn.

Çok teşekkür ediyorum. Harika bir çözüm...

 

[security]

Syn.

Çok teşekkür ediyorum. Harika bir çözüm...

ben tşk ederim başarılar.

 

[Necdet]

Merhaba,

Tarihi xl girişinde olduğu gibi yaparsınız; Örneğin 1.12.2009 tarihini aşağıdaki biçimlerde girerseniz :

• 1/12/9 ya da
• 1-12-9 yada
• 1-12/9 yada
• 1/12-9 gibi

aşağıdaki kodları kullanabilrsiniz

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox1 = Format(CDate(TextBox1), "dd.mm.yyyy")
End Sub

 

[Yüksel Varlı]

Necdet Bey,
Konuyla ilgili öyle kodlar buldum ki, astarı yüzünden pahalı... Ama sizin ve security arkadaşın kodları gerçekten en uygun olanları . İlginize teşekkür ediyorum.

Private Sub TextBox1_Change()
    With TextBox1
        .SelLength = 1
        If .SelText = "." Then
            .SelStart = .SelStart + 1
            .SelLength = 1
        End If
    End With
End Sub
'
Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    On Error GoTo ErrHand:
    With TextBox1
        If KeyCode = vbKeyLeft Or KeyCode = vbKeyBack Then
            KeyCode = vbKeySelect
            .SelStart = .SelStart - 1
            .SelLength = 1
        ElseIf KeyCode = vbKeyRight Then
            KeyCode = vbKeySelect
            .SelStart = .SelStart + 1
            .SelLength = 1
        ElseIf KeyCode = vbKeyDelete Then
            KeyCode = vbKeySelect
                If .SelText = "." Then
                   .SelText = "."
                Else
                    .SelText = "#"
                End If
            .SelStart = .SelStart - 1
            .SelLength = 1
        ElseIf KeyCode = vbKeyHome Then
            KeyCode = vbKeySelect
            .SelStart = 0
            .SelLength = 1
        ElseIf KeyCode = vbKeyEnd Then
            KeyCode = vbKeySelect
            .SelStart = Len(TextBox1) - 1
            .SelLength = 1
        End If
    End With
        Exit Sub
ErrHand:
    KeyCode = vbKeySelect
    TextBox1.SelStart = 0
    TextBox1.SelLength = 1
End Sub
'
Private Sub UserForm_Initialize()
    With TextBox1
        .MaxLength = 10
        .EnterFieldBehavior = fmEnterFieldBehaviorRecallSelection
        .Text = "##.##.####"
        .SelStart = 0
        .SelLength = 1
    End With
End Sub

 

[mustafakoker]

Merhaba,
Textbox'un çıkış olayına aşağıdaki kodu yazıyorum. Ancak (01122009) gibi başı 0 ile başlayan bir tarih girince, text box ta (1.12.2009) şeklinde görünüyor. Bu sorunu nasıl çözebiliriz?
Selamlar

Private Sub doğum_Exit(ByVal Cancel As MSForms.ReturnBoolean)
doğum.Text = Format(doğum.Text, "##"".""##"".""####")
End Sub

Sayın Securıty nın vermiş olduğu örnek

Teşekkürler
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox1 = Format(TextBox1, "00"".""00"".""0000")
End Sub