ضبط وتنسيق التاريخ في برنامجي

[كوماندير]

 

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

 

اعزائي الاعضاء الكرام مساكم الله بالخير

 

تمهيد : لدي برنامج يحتوي العديد من الجداول التي تحتوي حقولاً من نوع تاريخ / وقت (Date/Time) ، والقيمة الافتراضية لهذه الحقول هو اما

 Date()

او

Time()

 

السؤال : كيف اجعل التاريخ المخزن فيها يكون باحد الشكلين اما : (dd/mm/yyyy )

او  (dd/ mmmm/ yyyy ) حسب ما احدد في النموذج او التقرير ، ويكون التاريخ المعتمد لهذه الحقول هو التاريخ الميلادي ، وتكون تسميات الاشهر التسميات الانجليزية بغض النظر عن اعدادات جهازي من النواحي التالية : 

 

1)- لوكانت المنطقة او الدولة لجهازي هي دولة لاتعتمد التاريخ الميلادي كتاريخ رسمي مثلاً نفترض ان المنطقة الزمنية لجهازي هي السعودية التي تعتمد التقويم الهجري. 

 

2)- و / او لوكان تنسيق التاريخ لجهازي هو التنسيق

 mm/dd/yyyy 

او

yyyy/mm/dd

او

اي تنسيق غير التنسيق

dd/mm/yyyy

 

 

[jjafferr]

وعليكم السلام 🙂

 

انظر هذا الرابط 

 

 

جعفر

[كوماندير]

اشكرك اخي الفاضل جعفر

وجدت الرابط

http://allenbrowne.com/ser-36.html

 

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

فهلا تفضل احد جهابذة المنتدى بالتفصيل ؟ 

تم تعديل يوليو 20, 2019 بواسطه كوماندير

[jjafferr]

تفضل

 

 

جعفر

[كوماندير]

شكراً جزيلاً

 

تسلم الانامل

[ابو جودي]

منذ ساعه, كوماندير said:

 

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

 

اعزائي الاعضاء الكرام مساكم الله بالخير

 

تمهيد : لدي برنامج يحتوي العديد من الجداول التي تحتوي حقولاً من نوع تاريخ / وقت (Date/Time) ، والقيمة الافتراضية لهذه الحقول هو اما

 Date()

او

Time()

 

السؤال : كيف اجعل التاريخ المخزن فيها يكون باحد الشكلين اما : (dd/mm/yyyy )

او  (dd/ mmmm/ yyyy ) حسب ما احدد في النموذج او التقرير ، ويكون التاريخ المعتمد لهذه الحقول هو التاريخ الميلادي ، وتكون تسميات الاشهر التسميات الانجليزية بغض النظر عن اعدادات جهازي من النواحي التالية : 

 

1)- لوكانت المنطقة او الدولة لجهازي هي دولة لاتعتمد التاريخ الميلادي كتاريخ رسمي مثلاً نفترض ان المنطقة الزمنية لجهازي هي السعودية التي تعتمد التقويم الهجري. 

 

2)- و / او لوكان تنسيق التاريخ لجهازي هو التنسيق

 mm/dd/yyyy 

او

yyyy/mm/dd

او

اي تنسيق غير التنسيق

dd/mm/yyyy

 

 

طيب وبعد إذن أستاذى الجليل  و معلمى القدير و والدى الحبيب الاستاذ @jjafferr 

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

Public Function CustmNow()
On Error GoTo errsub

CustmNow = Replace(Format(Now(), "hh:nn:ss AM/PM" & Space(3) & "dd\/mm\/yyyy"), "MMM-", "")

errsub:
If Err.Number <> 0 Then
'MsgBox Err.Number & vbCrLf & Err.Description
End If
End Function

 

وهذه التسيقات التى استخدمتها داخل الموديول ليتم استدعائها بجميع زوايا البرنامج بكل اريحية

Public Function TimeNow()
    TimeNow = Format(CustmNow, "hh:nn:ss AM/PM")
End Function

Public Function DateNow()
    DateNow = Format(CustmNow(), "dd\/mm\/yyyy")
End Function

Public Function DateNowFull()
    DateNowFull = Format(CustmNow(), "dd\/mmmm\/yyyy")
End Function

 واخيرا المرفق 

Control Format Date.accdb

[ابو جودي]

30 دقائق مضت, jjafferr said:

تفضل

 

 

جعفر

 وهذا المرفق لتمرير اى تاريخ كم القاعدة والتحكم بتنسيق هذا التاريخ دون النظر لاعدادات الجهاز
ومن واقع جدول المرفق لــ أستاذى الجليل  و معلمى القدير و والدى الحبيب الاستاذ @jjafferr 

مع بعض التغير داخل الجدول لتغيير التنسيق

ثم تمرير التاريخ الى الموديول لنحصل على تنسيق موحد كما نريد 

 

Control Format Date - 2.accdb