تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[vb6.0] إظهار التاريخ الهجري من اليمين الى اليسار
#1
Question 
السلام عليكم و رحمة الله


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


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



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


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


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


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

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


الملفات المرفقة
.zip   إظهار التاريخ الهجري من اليمين الى اليسار.zip (الحجم : 2.06 ك ب / التحميلات : 363)
الرد }}}
تم الشكر بواسطة:
#2
السلام عليكم

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

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

- تحياتي .
كود :
For each Breathe in MyLife
Breathe.Say " سبحان الله والحمد لله ولا إله إلا الله والله أكبر أستغر الله العظيم وأتوب إليه"
Next
الرد }}}
تم الشكر بواسطة: allayl
#3
Smile شكرآ بارك الله فيك Smile
الرد }}}
تم الشكر بواسطة:
#4
يظهر التاريخ بهذا الشكل عند الانتقال من التكست


1434m11d10


امل المساعده  Rolleyes
الرد }}}
تم الشكر بواسطة:
#5
السلام عليكم

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

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

- تحياتي .
كود :
For each Breathe in MyLife
Breathe.Say " سبحان الله والحمد لله ولا إله إلا الله والله أكبر أستغر الله العظيم وأتوب إليه"
Next
الرد }}}
تم الشكر بواسطة: allayl , أبووسم
#6
شكرآ اخي بارك الله فيك  Wink
الرد }}}
تم الشكر بواسطة: VB_Coder


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] كيفية إظهار QR Code على Crystal Reports 10 tarekj 1 2,413 15-12-21, 03:53 AM
آخر رد: AmrSobhy
  كيفية منع تكرار التاريخ فى قاعدة البيانات ؟ gedo 7 5,691 19-06-21, 09:31 PM
آخر رد: khaled201349
  طلب كود تغير تنسيق التاريخ في جهاز الحاسوب ahmed20 0 1,235 12-02-21, 11:31 PM
آخر رد: ahmed20
  دوال التاريخ hosney 15 12,264 13-12-19, 05:54 AM
آخر رد: بسام محمدغانم
  اريد كود لتغيير التاريخ فقط للوندوز من الفجوال بيسك 6 scsi7000 0 2,190 24-08-16, 03:39 PM
آخر رد: scsi7000
Question [سؤال] عرض التاريخ الهجري بالشكل الصحيح في الاداة MSHFlexGrid1 allayl 2 3,448 29-10-13, 08:13 PM
آخر رد: allayl
Question [مثال] المساعده في مثال إظهار نتيجة البحث في ليست allayl 3 3,348 04-10-13, 01:20 AM
آخر رد: ZOUZOU
  المساعده في مثال إظهار نتيجة البحث على شكل شريط متحرك allayl 0 2,636 31-08-13, 02:27 AM
آخر رد: allayl
  المساعده في مثال البحث عن قبل إنتهاء التاريخ بأسبوعين allayl 7 3,803 30-08-13, 03:31 PM
آخر رد: benomar
  كيف يتم في برنامجي المرفق إظهار الموظفين المنتهيه تصاريحهم ؟؟ softmail8 2 2,684 13-08-13, 03:53 PM
آخر رد: softmail8

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم