الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

هل تريد ترتيب كتابة التاريخ الهجري ؟!

مغلق
بدأه ail_fahad777 في 2 أغسطس 2005 · 4 رد · 671 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

بسم الله الرحمن الرحيم

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

يا أخواني سوف أقدم لكم اليوم معلومة بسيطة

وربما أنها قديمة ولكن لابأس في التذكير بها !!

ما رأيك بالطريقة التي تجعل التاريخ الهجري والميلادي مرتبة بالطريقة الصحيحة

مثل : 27/6/1426 هـ ـــ 2/8/200 م

إذن أفتح برنامج فيجوال بيسك

إختر مشروع جديد

أضف Text1 وكذلك Command1 وقم بتسمية الكوماند بالإسم ترتيب التاريخ المدخل

إضغط على الكوماند مرتين وأكتب الكود التالي :

Text1.Text = Format(Text1.Text, "yyyy/mm/dd")

شغل البرنامج ثم أكتب التاريخ بالطريقة العادية ،، ثم إضغط على الزر

وإنظر ما يحدث ،،

أتوقع الطريقة سهلة وبسيطة ،، ويمكن تكون قديمة ..

أرجو الدعاء لي ولوالدي ،،،

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

تم تعديل هذه المشاركة بواسطة ail_fahad777 في 2 أغسطس 2005 في 13:36

#2

تسلم اخوي وبورك فيك

158.gif

هناك فرق بين أن تكبر بالعمر

، و أن تكبر بالعقل
فالأولى ، إجباري
، والثانية اختياري .."
 
 

164684_514411088579476_442405016_n.jpg

#3

فعلاً رائع

;) ;) :rolleyes:

#4

شكر الله لك اخي الكريم ail_fahad777

بالفعل كنت محتاج هذا الكود

29_09_05_02_32_59_1128029579_4_13_3[_].gif

صور gif شفافة لتجميل واجة البرنامج

الخط العثماني للمهتمين ببرمجة برامج تلاوة القرآن

كيف يمكن عمل سكرول بالماوس, scroling by mouse wheel

كبفية استعراض ملف PDF في تكست

06_02_06_08_01_06_1139241666down-logo_1.gif

هل نكذب علي الله ام نكذب علي انفسنا

البـر لا يبلي ، و الذنب لا ينسـي ، و الديـان لا يمـوت ، افعـل مـا شئت كما تـديـن تـدان

ليس كل من تعمم مفتيا ، بل ان الدين الاسلامي ليس قيه كهانه و بالتالي ليس فيه ما يعرف ب رجال الدين – احمد رجب

                                  مع خالص تحيـــــــــــــــــــــــــــــــــاتي

                                                   GAF58 

#5

اخي الفاضل

عند تطبيق الكود بالنسبة للوقت بطريقة مختلفة لم يعطني قرآءات صحيحة

برجاء تصويب الكود التالي

Private Sub Command1_Click()
T1.Text = Time
T2.Text = Time
T3.Text = Time
T1.Text = Format(T1.Text, "HH:")
T2.Text = Format(T2.Text, "MM:")
T3.Text = Format(T3.Text, "SS")

End Sub

شكرا جزيلا

29_09_05_02_32_59_1128029579_4_13_3[_].gif

صور gif شفافة لتجميل واجة البرنامج

الخط العثماني للمهتمين ببرمجة برامج تلاوة القرآن

كيف يمكن عمل سكرول بالماوس, scroling by mouse wheel

كبفية استعراض ملف PDF في تكست

06_02_06_08_01_06_1139241666down-logo_1.gif

هل نكذب علي الله ام نكذب علي انفسنا

البـر لا يبلي ، و الذنب لا ينسـي ، و الديـان لا يمـوت ، افعـل مـا شئت كما تـديـن تـدان

ليس كل من تعمم مفتيا ، بل ان الدين الاسلامي ليس قيه كهانه و بالتالي ليس فيه ما يعرف ب رجال الدين – احمد رجب

                                  مع خالص تحيـــــــــــــــــــــــــــــــــاتي

                                                   GAF58 

هذا الموضوع مغلق.

مواضيع مشابهة