السلام عليكم
- عندك عدة خيارات ، وهي أنك تدرج أداة MaskEdit وهي زي التكست بوكس إلا أنها تدعم الماسك أو القناع لمحتواها تستطيع أن تضع القناع فيها بهذا الشكل ##/##/#### أو بأي قناع تريد ، وخيار آخر أنك تضع ثلاثة تكست بوكس عادية للتاريخ يعني تكست لليوم وتكست للشهر وتكست للسنة وتخليها جنب بعض وأول مايكتب المستخدم في تكست اليوم ينتقل المؤشر لتكست الشهر وهكذا ، وخيار آخر إنك تستخدم تكست واحد للتاريخ وتخلي المستخدم يكتب التاريخ بأي شكل يكتبه لأنك ستضع كود في حدث الlostfocus لهذا التكست بحيث عندما ينتقل مؤشر الفأرة منه تقوم بتنسيق التاريخ على ماتريد وهذا هو الكود :
كود :
Private Sub Text1_LostFocus()
Text1.Text = Format(Text1.Text,"yyyy\mm\dd")
End Sub
- تحياتي .
السلام عليكم
- فعلاً طلع الكود خطأ , أرجو المعذرة لم أجربه قبل وضعه , على العموم هذا الكود بعد التعديل والتجربة :
كود :
Private Sub Text1_LostFocus()
If IsDate(Trim$(Text1.Text)) Then
Dim zDate As Date
zDate = CDate(Text1.Text)
Text1.Text = Format$(Year(zDate), "0000") & "\" & _
Format$(Month(zDate), "00") & "\" & _
Format$(Day(zDate), "00")
End If
End Sub
- تحياتي .
