تاريخ ميلادي واسم الشهر

[أواب]

إخواني الكرام

السلام عليكم ورحمة الله وبركاته

لدي استعلام تواريخ بالهجري

أريد اضافة عمود للتاريخ بالميلادي

وكذلك عمود باسم الشهر الميلادي

كما في الصورة:

 

[أواب]

للرفع

 

[أبو إبراهيم الغامدي]

Public Function ConvertToGergDate(HijriDate As Date,F As Integer)
  Calendar=vbGerg
  Select Case F
  Case 0
  ConvertToGergDate=Format(HijriDate,"yyyy/mm/dd")
  Case 2
  ConvertToGergDate=Format(HijriDate,"mmmm")
  End Select
End Function

استخدم هذه الوظيفة في رأس الاستعلام ومرر عليها حقل التاريخ الهجري في المحدد الأول والقيمة صفر في المحدد الثاني لإظهار التاريخ الميلادي بالكامل...

وبنفس الطريقة مع وضع الرقم واحد في المحدد الثاني لإظهار اسم الشهر بالكامل...

للأهمية.. أسماء الأشهر لا تظهر بالعربي إلا في أكسس بالواجهة العربية.. وعليك كمطور قواعد بيانات أن تحطاط لهذا الأمر

 

تم تعديل أكتوبر 5, 2018 بواسطه أبو إبراهيم الغامدي

[أواب]

أستاذي الكريم

لم أفهم كيف أطبق ذلك في الاستعلام

ممكن تعمله على المثال المرفق؟

وجزاك الله خيراً

db1.mdb

[أبو إبراهيم الغامدي]

أهلا بك 

أولا.. أعتذر إليك وللزملاء عن وجود أخطاء إملائية في الشفرة السابقة..

تانيا.. بعد التصحيح.. أدرجت أسماء الأشهر بالعربي ضمن الوظيفة، وجعلت الشفرة تأخذ الاسم العربي المقابل لرقم الشهر الميلادي؛ وذلك لتفادي ظهور اسم الشهر باللاتيني للواجهات أكسس غير العربية.. وهذي هي الوظيفة بعد التعديل.. ()

'-- من الأفضل اقتباس الشفرة من قاعدة البيانات للهروب من مشاكل الترميز


Public Function ConvertToGregDate(HijriDate As Date, F As Integer)
  Calendar = vbCalGreg
  Select Case F
  Case 0
  ConvertToGregDate = Format(HijriDate, "yyyy/mm/dd")
  Case 2
  '-- Show Arabic Month Names of Gregorian Calendar
  ConvertToGregDate = Choose(Format(HijriDate, "m"), _
  "يناير", "فبراير", "مارس", "أبريل", "مايو", "يونيه", "يوليه", _
  "أغسطس", "سبتمبر", "أكتوبر", "نوفمبر", "ديسمبر")
  End Select
End Function

 

إليك قاعدة البيانات بعد التطبيق.. db1.mdb

[أواب]

شكراً أستاذي الكريم

بارك الله فيك

وجزاك الله خيراً