kams3008 قام بنشر April 9 مشاركة قام بنشر April 9 هل يمكن تحويل التاريخ الى نص يعني يكون هكذا 01/03/2024 يرجع هكذا واحد مارس عام الفين واربعة وعشرين رابط هذا التعليق شارك More sharing options...
Eng.Qassim قام بنشر April 9 مشاركة قام بنشر April 9 وجدت هذا الملف في مكتبتي ..لكنه باللغة الانجليزية عسى ان ينفعك text date.rar 2 رابط هذا التعليق شارك More sharing options...
عبدالقدوس48 قام بنشر April 9 مشاركة قام بنشر April 9 السلام عليكم نفضل أحي التاريخ كتابة .accdb 2 رابط هذا التعليق شارك More sharing options...
أفضل إجابة Foksh قام بنشر April 9 أفضل إجابة مشاركة قام بنشر April 9 (معدل) ومشاركة جانبية .. استخدم هذا الكود في مديول :- Function ConvertDateToText(dateValue As Date) As String Dim dayText As String Dim monthText As String Dim yearText As String dayText = Choose(Day(dateValue), "واحد", "اثنين", "ثلاثة", "أربعة", "خمسة", "ستة", "سبعة", "ثمانية", "تسعة", "عشرة", "أحد عشر", "اثنا عشر", "ثلاثة عشر", "أربعة عشر", "خمسة عشر", "ستة عشر", "سبعة عشر", "ثمانية عشر", "تسعة عشر", "عشرون", "واحد وعشرون", "اثنين وعشرون", "ثلاثة وعشرون", "أربعة وعشرون", "خمسة وعشرون", "ستة وعشرون", "سبعة وعشرون", "ثمانية وعشرون", "تسعة وعشرون", "ثلاثون", "واحد وثلاثون") monthText = Choose(Month(dateValue), "يناير", "فبراير", "مارس", "أبريل", "مايو", "يونيو", "يوليو", "أغسطس", "سبتمبر", "أكتوبر", "نوفمبر", "ديسمبر") yearText = Choose(Left(Year(dateValue), 1), "ألف", "ألفان") & " و" & Choose(Right(Year(dateValue), 1), "واحد", "اثنين", "ثلاثة", "أربعة", "خمسة", "ستة", "سبعة", "ثمانية", "تسعة") & " وعشرون" ConvertDateToText = dayText & " " & monthText & " " & yearText End Function وفي أي نموذج استدعي الكود في أي مربع نص كمثال :- Private Sub Text_Date_AfterUpdate() Dim myDate As Date Dim formattedDate As String myDate = Me.Text_Date formattedDate = ConvertDateToText(myDate) Me.Text_Result = formattedDate End Sub أيضاً يمكنك استدعاء الدالة فقط بهذه الطريقة :- Me.Text_Result = ConvertDateToText(Me.Text_Date) ConvertDateToText.accdb تم تعديل April 9 بواسطه Foksh 1 رابط هذا التعليق شارك More sharing options...
kkhalifa1960 قام بنشر April 9 مشاركة قام بنشر April 9 مشاركة مع الاخوان تفضل أخي @kams3008 مستخدماً موديول استاذ عبد القدوس . اليك الشرح والمرفق . Cnvert Date To Text.rar 1 رابط هذا التعليق شارك More sharing options...
Eng.Qassim قام بنشر April 9 مشاركة قام بنشر April 9 (معدل) جميل جدا مشاركة الاخوة الاساتذة... بصراحة لم اجازف واحولها الى اللغة العربية لانها تحتاج الى وقت و تدقيق لغوي فمثلا 10/4/2024 تقرأ ..العاشر من نيسان سنة الفين واربع وعشرين .. اعذروني فأنا ضعيف بقواعد اللغة العربية.. كل عام وانتم بالف خير ...نسأل الله تعالى ان يتقبل صيام الجميع ...عيد مبارك عليكم جميعا اللهم فرج على اخوتنا وابناءنا في غزة .. تم تعديل April 9 بواسطه Eng.Qassim 1 رابط هذا التعليق شارك More sharing options...
Foksh قام بنشر April 9 مشاركة قام بنشر April 9 (معدل) 34 دقائق مضت, Eng.Qassim said: فمثلا 10/4/2024 تقرأ ..العاشر من نيسان سنة الفين واربع وعشرين .. كلامك سليم 100% ، اعتبر آكسيس حاله حال أحد الشعراء ( فيحق للشاعر ما لا يحق لغيره ) ولأجل الأخ @Eng.Qassim ، استبدل هذا التعديل البسيط للكود في المديول :- Function ConvertDateToText(dateValue As Date) As String Dim dayText As String Dim monthText As String Dim yearText As String dayText = Choose(Day(dateValue), "الأول", "الثاني", "الثالث", "الرابع", "الخامس", "السادس", "السابع", "الثامن", "التاسع", "العاشر", "الحادي عشر", "الثاني عشر", "الثالث عشر", "الرابع عشر", "الخامس عشر", "السادس عشر", "السابع عشر", "الثامن عشر", "التاسع عشر", "العشرون", "الحادي والعشرون", "الثاني والعشرون", "الثالث والعشرون", "الرابع والعشرون", "الخامس والعشرون", "السادس والعشرون", "السابع والعشرون", "الثامن والعشرون", "التاسع والعشرون", "الثلاثون") monthText = Choose(Month(dateValue), "كانون الثاني", "شباط", "آذار", "نيسان", "أيار", "حزيران", "تموز", "آب", "أيلول", "تشرين الأول", "تشرين الثاني", "كانون الأول") yearText = Choose(Left(Year(dateValue), 1), "ألف", "ألفان") & " و" & Choose(Right(Year(dateValue), 1), "واحد", "اثنين", "ثلاثة", "أربعة", "خمسة", "ستة", "سبعة", "ثمانية", "تسعة") & " وعشرون" ConvertDateToText = dayText & " من " & monthText & " من عام " & yearText End Function تم تعديل April 9 بواسطه Foksh 1 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان