كتابة التاريخ بالحروف - نسخة قابلة للطباعة +- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb) +-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182) +--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183) +--- الموضوع : كتابة التاريخ بالحروف (/showthread.php?tid=26510) |
كتابة التاريخ بالحروف - العيدروس - 16-09-18 السلام عليكم.اخواني لو سمحتو هل ممكن وجود مثال لكتابة التاريخ بالحروف بحثت كثيرا و لم اجد مثال يناسب ما اريد مثلا لما اكتب بالتاكست بكس1 التاريخ 15/09/2018 يطلع بالتاكست بكس 2 ( الخامس عشر سبتمبر الفان و ثمانية عشر ) بارك الله فيكم RE: كتابة التاريخ بالحروف - عبد العزيز البسكري - 16-09-18 السّلام عليكم و رحمة الله و بركاته
أخي الكريم ..
بالواقع عندي ملف يقوم بالعمليّة لكنّه ( تايوان ) و ليس أصلي .. أقصد فقط قمت بتحويله من الفيجوال بيسك 6
لذلك سأنتظر ريثما و لعل تجد ملف أحسن و أفضل
تحياتي
RE: كتابة التاريخ بالحروف - 911 - 16-09-18 كود : Public Class Form1 (16-09-18, 02:18 AM)عبد العزيز البسكري كتب : ضعه لعل بالإمكان تحويله إلى VB.NET وتحسينه أيضاً. RE: كتابة التاريخ بالحروف - عبد العزيز البسكري - 16-09-18 أشكرك جزيل الشّكر أخي الكريم الغالي " 911 " على هذا الملف و العمل الرّائع ليس هنا فقط بل بكل المواضيع .. عسى الله أن يزيدها بموازين حسناتك إن شاء الله
هذا هو الملف الذي تكلمت عنه
تحياتي واحتراماتي .. و نيابة عن صاحب الموضوع أضيف تقييماتي
RE: كتابة التاريخ بالحروف - 911 - 16-09-18 جزاك الله خير أخي عبد العزيز البسكري على هذا الملف كان فقط يحتاج لتغيير السطر التالي (لتستغني عن المكتبة Microsoft.VisualBasic.Compatibility.dll) كود : GetNo = VB6.Format(TheNo, "000000000000.00") إلى التالي كود : GetNo = TheNo.ToString("000000000000.00") وفكرة شبيهة لما وضعت باستثناء أن السنة استخدم فيها تفقيط الرقم العادي الذي يستخدم لتفقيط العملة جزاك الله خير |