السلام عليكم و رحمة الله وبركاته
مثلا انا عندي التأريخ في تكست بكس1هكذا 18/10/2007 اريده بعد ان اضغط على زر امر ينكتب في تكس بكس2: الثامن عشر من أكتوبر عام الفين و سبعة
كيف يتم ذلك ؟
وشكرا
[ تمت الإجابة ]كيف يتم كتابة التاريخ بالحروف ؟
على ما اذكر انه يوجد في المنتدى كود يقوم بتحويل الارقام الى حروف ابحث عنه وستجد طلبك ان شاء الله
وبالنسبه لاسم الشهر تستطيع ان تستخدم هذي الداله التي تعيد لك اسم الشهر :
print MonthName(Month(Date))
ليس كل ما يتمناه المرء يدركه
بالنسبة لاسم الشهر سهل بامكانك استخدام الكود التالي :
format(date,"MMMM")
بحثت في المنتدى فوجدت تحويل الارقام إلى حروف و لكن لم اجد تحويل التاريخ الى حروف هذا هو المطلوب لأن التاريخ به فواصل مثل / و - و .
لا تخلط ما بين شخصيتي وأسلوبي .. فشخصيتي هي
ما أنا عليه وتحت تصرفي .. وأسلـوبي يعتمد عليـك
أنت وتصرفاتك
ولحظاتي صمت... وصمـت لحظاتي كلام ... كلامه
اشد آلام ... فصمتي أنا عنوان
شكرا لكم جميعا
بحثت في المنتدى و لكن لم أجد ما أبحث عنه يا أخي
اخي MMA مثالك لم يفي بالغرض
انتظر الجواب الشافي
تم تعديل هذه المشاركة بواسطة alhootti في 14 فبراير 2008 في 19:12
اقتباسبحثت في المنتدى فوجدت تحويل الارقام إلى حروف و لكن لم اجد تحويل التاريخ الى حروف هذا هو المطلوب لأن التاريخ به فواصل مثل / و - و .
اذا كان التاريخ مكتوب بالشكل التالي : 18/10/2007 يمكن استخدام الداله Split لتقسيم النص حسب الرمز كالتالي :
ss = Split("2007/10/18", "/")
Print ss(0)
Print ss(1)
Print ss(2)تم تعديل هذه المشاركة بواسطة العقده في 15 فبراير 2008 في 02:38
ليس كل ما يتمناه المرء يدركه
اقتباسبحثت في المنتدى فوجدت تحويل الارقام إلى حروف و لكن لم اجد تحويل التاريخ الى حروف هذا هو المطلوب لأن التاريخ به فواصل مثل / و - و .
الطريقة سهلة ، أولاً : قم باستخراج الأرقام من التاريخ ( باستخدام دالة Format أو باستخدام الدوال Day , Month , Year ) ، ثم قم باستخدام دالة تفقيط الأرقام مع مراعاة تسمية الأرقام بصيغة الترتيب ..
فمثلاً ، قم باستبدال التسمية "أربعة" إلى "الرابع" ، وهكذا.
سبحان الله وبحمده ... سبحان الله العظيم
لو أنك دمجت كل الأفكار المدرجة بواسطة الأعضاء فكنت وجدت النتيجة الصحيحة !!!
علي العموم ، أنظر المثال التالي :
لا تخلط ما بين شخصيتي وأسلوبي .. فشخصيتي هي
ما أنا عليه وتحت تصرفي .. وأسلـوبي يعتمد عليـك
أنت وتصرفاتك
ولحظاتي صمت... وصمـت لحظاتي كلام ... كلامه
اشد آلام ... فصمتي أنا عنوان
مرحبا أخي مثال لما طلبت أنظر المثال المرفق .. تحياتي
شكرا لكم جميعا و بارك الله فيكم
لقد توصلت إلى المطلوب و كان الجواب القريب الى الصواب هو جواب أخي محمدvb
اكرر شكري لكم جميعا و شكرا على تعاونكم و وفقكم الله دوما و حفظكم الله من كل سوء و مكروه.
السلام عليكم
اخي MMA_EG_Cairo
ان المثال المرفق مفبد جدا ولكن هناك خطا وهو عدم تحويل الشهر الى العربية اما باقي المرفق فهو يعمل بشكل ممتاز ارجوا منك التعديل على المرفق
Stylmg@yahoo.fr
لقد نسيت اذا امكن التعديل على المرفق بحيث يحول الشهر بدون الرجوع الى الاعدادات لاني استعمل xp فرنسي حيث انني عندما يكوت الشهر janvier يكتب لي مكانه جانفي
Stylmg@yahoo.fr
أخي mohamed yasi
لقد قمت بالقليل من التعديلات على كود الأخ MMA_EG_Cairo قم باستخدام التسمية التي تريدها للشهور في الدالة getMonth ،
- Private Sub cmdGetDate_Click()
- txtDate2.Text = ToWordsArb(Day(txtDate1.Text)) & " - " & _
- getMonth(Month(txtDate1.Text)) & " - " & _
- ToWordsArb(Year(txtDate1.Text))
- End Sub
- Function getMonth(m As Byte) As String
- Select Case m
- Case 1: getMonth = "íäÇíÑ"
- Case 2: getMonth = "ÝÈÑÇíÑ"
- Case 3: getMonth = "ãÇÑÓ"
- Case 4: getMonth = "ÃÈÑíá"
- Case 5: getMonth = "ãÇíæ"
- Case 6: getMonth = "íæäíæ"
- Case 7: getMonth = "íæáíæ"
- Case 8: getMonth = "ÃÛÓØÓ"
- Case 9: getMonth = "ÓÈÊãÈÑ"
- Case 10: getMonth = "ÃßÊæÈÑ"
- Case 11: getMonth = "äæÝãÈÑ"
- Case 12: getMonth = "ÏíÓãÈÑ"
- End Select
- End Function
سبحان الله وبحمده ... سبحان الله العظيم
بارك الله فيكم جميعاً السائل والمسؤل الصراحة هذا صرح علمي شامخ لنفيد ونستفيد مع خالص شكري ؟
هواياتي قواعد البيانات