مشكلة في تنسيق التاريخ حين يتم اسناده الى متغير من نوع تاريخ

[عبد الله قدور]

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

عندما اقوم بوضع تاريخ في متغير public من نوع تاريخ يتم اعتماده بالتنسيق الامريكي شهر يوم سنة فإذا كان التاريخ غير صحيح يعتمده يوم شهر سنة

هنا نقع في مشكلة انه احيانا يأخذ التاريخ صحيح واحيانا لا

فما الحل حتى نستطيع جعل الاكسس يعتمد نظام التاريخ يوم شهر سنة في كل الحالات

 

[kkhalifa1960]

استاذ @عبد الله قدور اليك محاولتي .

Option Compare Database
Option Explicit
Dim Date1 As Date
Dim xx
xx = Format([Date1], "dd/mm/yyyy")

 

[عبد الله قدور]

14 دقائق مضت, kkhalifa1960 said:

استاذ @عبد الله قدور اليك محاولتي .

Option Compare Database
Option Explicit
Dim Date1 As Date
Dim xx
xx = Format([Date1], "dd/mm/yyyy")

 

للاسف عند استخراج النتيجة يبقى التاريخ mm/dd/yyyy

[kkhalifa1960]

استاذ @عبد الله قدور ممكن مرفق.

[kkhalifa1960]

استاذ @عبد الله قدور اليك محاولتي الثانية بالمرفق التالي .

Date Public Function.rar

[عبد الله قدور]

سأشرح لك المشكلة بالتفصيل

تقوم اساس المشكلة باختيار سعر الصرف من جدول اسعار الصرف يقوم المستخدم للبرنامج بادخال سعر الصرف في حال تغييره كما في الصورة التالية

الان عند اعداد اي تقرير مالي يجب تقييم العمليات على اساس سعر الصرف حسب تاريخ العملية

مثال عندنا عملية دفع بتاريخ 1-4-2024 يجب على البرنامج اعتماد سعر الصرف 32.60

عملية دفع جديدة بتاريخ 2-4-2024 يجب ان يعتمد البرنامج على سعر الصرف 32.6 (لان تاريخ العملية ليس له تعديل في جدول اسعار الصرف ، فالمنطق يقول ان سعر الصرف بقي كما هو في اليوم السابق )

الان نحن نستمر في استخدام سعر صرف 32.6 الى تاريخ 6-4-2024

بتاريخ 7-4-2024 نبدأ باستخدام سعر صرف 32.1 حتى تاريخ 24-4-2024

بتاريخ 25-4-2024 نبدأ باستخدام سعر صرف 32.4 حتى تاريخ 30-4-2024

المشكلة الان عندما اقوم بوضع تاريخ العملية في متغير من نوع date يعتمد تنسيق التاريخ شهر يوم سنة ولا استطيع مقارنة التاريخ مع الجدول باستخدام الدالة dlast

بسبب ان التواريخ عندي يوم شهر سنة والتاريخ المعتمد في المتغير date هو شهر يوم سنة

الان هل يمكن جعل المتغير من نوع date يعتمد تنسيق يوم شهر سنة

طبعا تغيير التنسيق باستخدام format لم احصل على نتيجة ولا باستخدام cdate ولا dateserial ولا datevalue

 

تم تعديل مايو 21 بواسطه عبد الله قدور

[Moosak]

أنظر هنا أستاذ @عبد الله قدور 🙂 

 

[Foksh]

مشاركة جانبية متأخرة مع الأساتذة ( أن تصل متأخراً خير من أن لا تصل ابدأ )،

جرب هذه الفكرة اخي @عبد الله قدور ،

ننشئ دالة عامة في مديول ونستخدم هذا الكود الذي يعيد تنسيق التاريخ بالشكل DD/MM/YYYY :-

Public Function ParseDate(inputDate As String) As Date
    Dim dayPart As String
    Dim monthPart As String
    Dim yearPart As String
    
    dayPart = Mid(inputDate, 1, 2)
    monthPart = Mid(inputDate, 4, 2)
    yearPart = Mid(inputDate, 7, 4)
    
    ParseDate = DateSerial(CInt(yearPart), CInt(monthPart), CInt(dayPart))
End Function

 

ونستدعيه على سبيل المثال كالآتي ( المتغير اختياري وعلى سبيل المثال ) :-

Dim myDate As Date
myDate = ParseDate("24/05/2024")

 

ودمتم 🤗

[عبد الله قدور]

12 ساعات مضت, Foksh said:

مشاركة جانبية متأخرة مع الأساتذة ( أن تصل متأخراً خير من أن لا تصل ابدأ )،

جرب هذه الفكرة اخي @عبد الله قدور ،

ننشئ دالة عامة في مديول ونستخدم هذا الكود الذي يعيد تنسيق التاريخ بالشكل DD/MM/YYYY :-

بعد جهد في هذا المجال وصلت الى قناعة ان المشكلة في تعريف المتغير من نوع date هذا المتغير ما ان تم استخدامه فان التاريخ المعتمد هو شهر يوم سنة فإذا فشل في اعتماد ذلك اعتمد يوم شهر سنة

فوصلت لحل هو عدم استخدام المكتبة date ابدا

قمت بتحويل التاريخ الى رقم على الشكل التالي

تاريخ 01/05/2024 الى 20240501

هكذا يحافظ هذا الرقم على نفس ترتيب التواريخ واستخدم متغير من نوع long بدلا من date 

ووضعت العمود في جدول وجعلته محسوب كما في الصورة

والنتيجة كانت

ولتذهب مكتبة date بما فيها الى الجحيم

 

تم تعديل مايو 24 بواسطه عبد الله قدور

[Foksh]

13 دقائق مضت, عبد الله قدور said:

ولتذهب مكتبة date بما فيها الى الجحيم

 

بطريق آخر ،، المهم نجاح الفكرة و وصولك الى حل يعالج مشكلتك ، بالتوفيق أستاذ @عبد الله قدور