تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
كتابة التاريخ بالحروف
#1
السلام عليكم.اخواني لو سمحتو هل ممكن وجود مثال لكتابة التاريخ بالحروف بحثت كثيرا و لم اجد مثال يناسب ما اريد
مثلا لما اكتب بالتاكست بكس1 التاريخ 15/09/2018 يطلع بالتاكست بكس 2 ( الخامس عشر سبتمبر الفان و ثمانية عشر )
بارك الله فيكم
الرد
تم الشكر بواسطة:
#2
السّلام عليكم و رحمة الله و بركاته
أخي الكريم ..
بالواقع عندي ملف يقوم بالعمليّة لكنّه ( تايوان ) و ليس أصلي .. أقصد فقط قمت بتحويله من الفيجوال بيسك 6
لذلك سأنتظر ريثما و لعل تجد ملف أحسن و أفضل
تحياتي
الرد
تم الشكر بواسطة: 911 , 911 , elgokr
#3
كود :
Public Class Form1

   Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged
       TextBox2.Text = StringDate(TextBox1.Text)
   End Sub

   Public Function StringDate(dt As String) As String
       Dim days As String() = {"الأول", "الثاني", "الثالث", "الرابع", "الخامس", "السادس", "السابع", "الثامن", "التاسع", "العاشر",
                             "الحادي عشر", "الثاني عشر", "الثالث عشر", "الرابع عشر", "الخامس عشر", "السادس عشر", "السابع عشر",
                             "الثامن عشر", "التاسع عشر", "العشرون", "الحادي والعشرون", "الثاني والعشرون", "الثالث والعشرون",
                             "الرابع والعشرون", "الخامس والعشرون", "السادس والعشرون", "السابع والعشرون", "الثامن والعشرون",
                             "التاسع والعشرون", "الثلاثون", "الحادي والثلاثون"}
       Dim months As String() = {"يناير", "فبراير", "مارس", "أبريل", "مايو", "يونيو", "يوليو", "أغسطس", "سبتمبر", "أكتوبر", "نوفمبر", "ديسمبر"}
       Dim years As String() = {"ألفان", "ألفان وواحد", "ألفان واثنان", "ألفان وثلاثة", "ألفان وأربعة", "ألفان وخمسة",
                                "ألفان وستة", "ألفان وسبعة", "ألفان وثمانية", "ألفان وتسعة", "ألفان وعشرة",
                                "ألفان وإحدى عشر", "ألفان وإثنا عشر", "ألفان وثلاثة عشر", "ألفان وأربعة عشر", "ألفان وخمسة عشر",
                                "ألفان وستة عشر", "ألفان وسبعة عشر", "ألفان وثمانية عشر", "ألفان وتسعة عشر", "ألفان وعشرون"}
       Dim r As String = String.Empty
       If IsDate(dt) Then
           Dim y = CDate(dt).Year, m = CDate(dt).Month, d = CDate(dt).Day
           If y >= 2000 And y <= 2020 Then
               r = days(d - 1) & "  من " & months(m - 1) & " " & years(y - 2000)
           End If
       End If
       Return r
   End Function

End Class

(16-09-18, 02:18 AM)عبد العزيز البسكري كتب :
السّلام عليكم و رحمة الله و بركاته
أخي الكريم ..
بالواقع عندي ملف يقوم بالعمليّة لكنّه ( تايوان ) و ليس أصلي .. أقصد فقط قمت بتحويله من الفيجوال بيسك 6
لذلك سأنتظر ريثما و لعل تجد ملف أحسن و أفضل
تحياتي


ضعه لعل بالإمكان تحويله إلى VB.NET وتحسينه أيضاً.
الرد
تم الشكر بواسطة: عبد العزيز البسكري , elgokr
#4
أشكرك جزيل الشّكر أخي الكريم الغالي " 911 " على هذا الملف و العمل الرّائع ليس هنا فقط بل بكل المواضيع .. عسى الله أن يزيدها بموازين حسناتك إن شاء الله
هذا هو الملف الذي تكلمت عنه
تحياتي واحتراماتي .. و نيابة عن صاحب الموضوع أضيف تقييماتي


الملفات المرفقة
.rar   تفقيط تاريخ الميلاد.rar (الحجم : 153.27 ك ب / التحميلات : 14)
الرد
#5
جزاك الله خير أخي عبد العزيز البسكري على هذا الملف

كان فقط يحتاج لتغيير السطر التالي (لتستغني عن المكتبة Microsoft.VisualBasic.Compatibility.dll)
كود :
GetNo = VB6.Format(TheNo, "000000000000.00")

إلى التالي
كود :
GetNo = TheNo.ToString("000000000000.00")


وفكرة شبيهة لما وضعت باستثناء أن السنة استخدم فيها تفقيط الرقم العادي الذي يستخدم لتفقيط العملة


جزاك الله خير
الرد


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مشكلة حفظ التاريخ samira20 17 293 20-04-19, 06:17 AM
آخر رد: elgokr
  [سؤال] كود عرض التاريخ slackgate 2 2,717 18-04-19, 08:14 PM
آخر رد: اسامه الهرماوي
  [ تم الحل ] تعديل على تنسيق التاريخ بالتاكست بكس محمد خيري 9 137 11-04-19, 01:55 PM
آخر رد: elgokr
  [ تمّ الحل ] : إظهار التاريخ من اليمين إلى اليسار على الداتا جريد فيو عبد العزيز البسكري 5 145 30-03-19, 11:15 PM
آخر رد: عبد العزيز البسكري
  زيادة ونقص اداة التاريخ عند تغيير تاريخ اداة التاريخ الاخري atefkhalf2004 4 191 24-02-19, 04:50 PM
آخر رد: حريف برمجة
  [كود] أريد حل مشكلة في إدخال الوقت و التاريخ lolo queen 17 6,609 15-02-19, 03:01 AM
آخر رد: اسامه الهرماوي
  كيف كتابة الارقام العشرية فى التسكت بوكس سمير جمال 0 114 13-02-19, 06:39 PM
آخر رد: سمير جمال
  [سؤال] طباعة التاريخ في الوورد dell 5 167 21-01-19, 05:55 PM
آخر رد: elgokr
  [سؤال] اريد تجزئة حقل التاريخ عاشق الرسول 5 343 11-01-19, 11:03 AM
آخر رد: larbihamri
  إريد تنبيه إذا كان التاريخ اكبر من أو يساوي تاريخ اليوم. أبووسم 8 354 10-01-19, 01:48 PM
آخر رد: أبووسم

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


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