منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[vb6.0] إظهار التاريخ الهجري من اليمين الى اليسار - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم قواعد البيانات (http://vb4arb.com/vb/forumdisplay.php?fid=40)
+--- قسم : قسم اسئلة vb6.0 المتعلقة بقواعد البيانات (http://vb4arb.com/vb/forumdisplay.php?fid=72)
+--- الموضوع : [vb6.0] إظهار التاريخ الهجري من اليمين الى اليسار (/showthread.php?tid=110)

إظهار التاريخ الهجري من اليمين الى اليسار - allayl - 16-09-13

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


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


امل المساعده Blush



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


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


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


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

المثال مرفق Big Grin

RE: إظهار التاريخ الهجري من اليمين الى اليسار - VB_Coder - 16-09-13

السلام عليكم

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

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

- تحياتي .

RE: إظهار التاريخ الهجري من اليمين الى اليسار - allayl - 16-09-13

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


RE: إظهار التاريخ الهجري من اليمين الى اليسار - allayl - 16-09-13

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


1434m11d10


امل المساعده  Rolleyes

RE: إظهار التاريخ الهجري من اليمين الى اليسار - VB_Coder - 16-09-13

السلام عليكم

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

كود :
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

- تحياتي .

RE: إظهار التاريخ الهجري من اليمين الى اليسار - allayl - 16-09-13

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