التأكد من تنسيق التاريخ

[Akram Galal]

لسادة الأفاضل أعضاء المنتدى
كل عام وأنتم بخير
أريد عمل فورمة بها عدد 1 TextBox

وكود يقوم بالتأكد من أن تنسيق التاريخ الموجود في TextBox1 مطابق للتنسيق YYYY/MM/DD

واذا لم يكن مطابق يظهر رسالة تفيد ذلك 

ولكم جزيل الشكر

[Akram Galal]

للرفع

[محمد الريفى]

جرب هذا الكود

Dim dDate As Date
Private Sub CommandButton1_Click()
    Sheet1.Range("A1").Value = dDate
End Sub
 
Private Sub TextBox1_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
    If Mid(TextBox1.Value, 4, 2) > 12 Then
        MsgBox "Invalid date, please re-enter", vbCritical
        TextBox1.Value = vbNullString
        TextBox1.SetFocus
        Exit Sub
    End If
     
    dDate = DateSerial(Year(Date), Month(Date), Day(Date))
    TextBox1.Value = Format(TextBox1.Value, "dd/mm/yyyy")
    dDate = TextBox1.Value
End Sub

 

[جلال الجمال_ابو أدهم]

محمد الريفى

اخى الفاضل جزاك الله خيرا
وحشتنا مشاركاتك

[Akram Galal]

جزاك الله خيرا يا أ/ محمد

وبارك الله لك