[allayl]

السلام عليكم و رحمة الله

كيفكم يا اعضاء المنتدى الغالي

امل المساعده



في تصحيح اداخل الــتــاريـــخ الهجري في البرنامج من اليمين الى اليسار


يعني عند ادخال تاريخ في التكست 1 يظهر على شكل 1434/11/10


حـــتـــى او ادخــــل المستخدم الــتــاريـــخ على شكل 10/11/1434

امل المساعده بارك الله فيكم

المثال مرفق

[VB_Coder]

السلام عليكم

- عندك عدة خيارات ، وهي أنك تدرج أداة MaskEdit وهي زي التكست بوكس إلا أنها تدعم الماسك أو القناع لمحتواها تستطيع أن تضع القناع فيها بهذا الشكل ##/##/#### أو بأي قناع تريد ، وخيار آخر أنك تضع ثلاثة تكست بوكس عادية للتاريخ يعني تكست لليوم وتكست للشهر وتكست للسنة وتخليها جنب بعض وأول مايكتب المستخدم في تكست اليوم ينتقل المؤشر لتكست الشهر وهكذا ، وخيار آخر إنك تستخدم تكست واحد للتاريخ وتخلي المستخدم يكتب التاريخ بأي شكل يكتبه لأنك ستضع كود في حدث الlostfocus لهذا التكست بحيث عندما ينتقل مؤشر الفأرة منه تقوم بتنسيق التاريخ على ماتريد وهذا هو الكود :

كود :

Private Sub Text1_LostFocus()
Text1.Text = Format(Text1.Text,"yyyy\mm\dd")
End Sub

- تحياتي .

[allayl]

شكرآ بارك الله فيك

[allayl]

يظهر التاريخ بهذا الشكل عند الانتقال من التكست


1434m11d10


امل المساعده 

[VB_Coder]

السلام عليكم

- فعلاً طلع الكود خطأ , أرجو المعذرة لم أجربه قبل وضعه , على العموم هذا الكود بعد التعديل والتجربة :

كود :

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

- تحياتي .

[allayl]

شكرآ اخي بارك الله فيك