المشاركات : 264
المواضيع 74
الإنتساب : Oct 2017
السمعة :
9
الشكر: 273
تم شكره 198 مرات في 125 مشاركات
السلام عليكم.اخواني لو سمحتو هل ممكن وجود مثال لكتابة التاريخ بالحروف بحثت كثيرا و لم اجد مثال يناسب ما اريد
مثلا لما اكتب بالتاكست بكس1 التاريخ 15/09/2018 يطلع بالتاكست بكس 2 ( الخامس عشر سبتمبر الفان و ثمانية عشر )
بارك الله فيكم
المشاركات : 2,646
المواضيع 204
الإنتساب : Dec 2015
السمعة :
337
الشكر: 17136
تم شكره 11148 مرات في 2628 مشاركات
السّلام عليكم و رحمة الله و بركاته
أخي الكريم ..
بالواقع عندي ملف يقوم بالعمليّة لكنّه ( تايوان ) و ليس أصلي .. أقصد فقط قمت بتحويله من الفيجوال بيسك 6
لذلك سأنتظر ريثما و لعل تجد ملف أحسن و أفضل
تحياتي
المشاركات : 50
المواضيع 0
الإنتساب : Sep 2018
السمعة :
12
الشكر: 121
تم شكره 181 مرات في 75 مشاركات
16-09-18, 02:26 AM
(آخر تعديل لهذه المشاركة : 16-09-18, 02:36 AM {2} بواسطة 911 .)
كود :
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 وتحسينه أيضاً.
المشاركات : 2,646
المواضيع 204
الإنتساب : Dec 2015
السمعة :
337
الشكر: 17136
تم شكره 11148 مرات في 2628 مشاركات
16-09-18, 02:41 AM
(آخر تعديل لهذه المشاركة : 16-09-18, 02:42 AM {2} بواسطة عبد العزيز البسكري .)
أشكرك جزيل الشّكر أخي الكريم الغالي " 911 " على هذا الملف و العمل الرّائع ليس هنا فقط بل بكل المواضيع .. عسى الله أن يزيدها بموازين حسناتك إن شاء الله
هذا هو الملف الذي تكلمت عنه
تحياتي واحتراماتي .. و نيابة عن صاحب الموضوع أضيف تقييماتي
الملفات المرفقة
تفقيط تاريخ الميلاد.rar (الحجم : 153.27 ك ب / التحميلات : 40)
المشاركات : 50
المواضيع 0
الإنتساب : Sep 2018
السمعة :
12
الشكر: 121
تم شكره 181 مرات في 75 مشاركات
جزاك الله خير أخي
عبد العزيز البسكري على هذا الملف
كان فقط يحتاج لتغيير السطر التالي (لتستغني عن المكتبة Microsoft.VisualBasic.Compatibility.dll)
كود :
GetNo = VB6.Format(TheNo, "000000000000.00")
إلى التالي
كود :
GetNo = TheNo.ToString("000000000000.00")
وفكرة شبيهة لما وضعت باستثناء أن السنة استخدم فيها تفقيط الرقم العادي الذي يستخدم لتفقيط العملة
جزاك الله خير