نحويل التاريخ الى نص

[kams3008]

هل يمكن تحويل التاريخ الى نص 

يعني يكون هكذا     01/03/2024

يرجع هكذا 

واحد مارس عام الفين واربعة وعشرين

[Eng.Qassim]

وجدت هذا الملف في مكتبتي ..لكنه باللغة الانجليزية

عسى ان ينفعك 

 

text date.rar

[عبدالقدوس48]

السلام عليكم

نفضل أحي

التاريخ كتابة .accdb

[Foksh]

ومشاركة جانبية ..

استخدم هذا الكود في مديول :-

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

[kkhalifa1960]

مشاركة مع الاخوان تفضل أخي @kams3008 مستخدماً موديول استاذ عبد القدوس . اليك الشرح والمرفق .

                                                                   

Cnvert Date To Text.rar

[Eng.Qassim]

جميل جدا مشاركة الاخوة الاساتذة...

بصراحة لم اجازف واحولها الى اللغة العربية لانها تحتاج الى وقت و تدقيق لغوي 

فمثلا 10/4/2024 تقرأ ..العاشر من نيسان سنة الفين واربع وعشرين ..

اعذروني فأنا ضعيف بقواعد اللغة العربية..

كل عام وانتم بالف خير ...نسأل الله تعالى ان يتقبل صيام الجميع ...عيد مبارك عليكم جميعا 

اللهم فرج على اخوتنا وابناءنا في غزة ..

تم تعديل April 9 بواسطه Eng.Qassim

[Foksh]

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