Textboxa girilen tarih ve gün

[sirkülasyon]

Textbox7 ye 22102012 yazdığım zaman 22.10.2012 diye düzeltsin Textbox8 de Textbox7 deki tarihe bakarak direkt günü yazsın
Yardımlarınızı bekliyorum

 

[Korhan Ayhan]

Merhaba,

Aşağıdaki kodu deneyiniz. Formunuzun kod bölümüne uygulayın.

Private Sub TextBox7_Change()
    TextBox8 = ""
    Select Case Len(TextBox7)
        Case 2, 5
            TextBox7 = TextBox7 & "."
        Case 10
            If IsDate(TextBox7) Then
                TextBox8 = Format(TextBox7, "dddd")
            Else
                MsgBox "Hatalı tarih !"
                TextBox7 = ""
            End If
    End Select
End Sub
 
Private Sub UserForm_Initialize()
    TextBox7.MaxLength = 10
End Sub

 

[sirkülasyon]

Korhan abi tam istediğim gibi olmuş. Ellerine sağlık.
Ellerinden öperim abi sağolasın