تقييم الموضوع :
  • 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 ك ب / التحميلات : 171)
الرد }}}}
تم الشكر بواسطة:
#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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  كيفية منع تكرار التاريخ فى قاعدة البيانات ؟ gedo 6 873 25-10-16, 10:10 AM
آخر رد: abulayth
  اريد كود لتغيير التاريخ فقط للوندوز من الفجوال بيسك 6 scsi7000 0 118 24-08-16, 03:39 PM
آخر رد: scsi7000
Question [سؤال] عرض التاريخ الهجري بالشكل الصحيح في الاداة MSHFlexGrid1 allayl 2 1,254 29-10-13, 08:13 PM
آخر رد: allayl
Question [مثال] المساعده في مثال إظهار نتيجة البحث في ليست allayl 3 1,095 04-10-13, 01:20 AM
آخر رد: ZOUZOU
  المساعده في مثال إظهار نتيجة البحث على شكل شريط متحرك allayl 0 920 31-08-13, 02:27 AM
آخر رد: allayl
  المساعده في مثال البحث عن قبل إنتهاء التاريخ بأسبوعين allayl 7 964 30-08-13, 03:31 PM
آخر رد: benomar
  كيف يتم في برنامجي المرفق إظهار الموظفين المنتهيه تصاريحهم ؟؟ softmail8 2 709 13-08-13, 03:53 PM
آخر رد: softmail8
  كيف ابحث عن تاريخ في قاعدة بيانات برنامجي بشرط ان يكون التاريخ تحت رقم حساب معين ؟؟ softmail8 2 492 08-07-13, 07:40 PM
آخر رد: softmail8
  برجاء كيفية ادخال اداة التاريخ المسماه dtpickerفى المشروع hosney 4 493 23-12-12, 12:15 PM
آخر رد: hosney
  دوال التاريخ hosney 14 1,565 23-12-12, 11:44 AM
آخر رد: hosney

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


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