كوماندير قام بنشر يوليو 20, 2019 مشاركة قام بنشر يوليو 20, 2019 السلام عليكم ورحمة الله وبركاته اعزائي الاعضاء الكرام مساكم الله بالخير تمهيد : لدي برنامج يحتوي العديد من الجداول التي تحتوي حقولاً من نوع تاريخ / وقت (Date/Time) ، والقيمة الافتراضية لهذه الحقول هو اما Date() او Time() السؤال : كيف اجعل التاريخ المخزن فيها يكون باحد الشكلين اما : (dd/mm/yyyy ) او (dd/ mmmm/ yyyy ) حسب ما احدد في النموذج او التقرير ، ويكون التاريخ المعتمد لهذه الحقول هو التاريخ الميلادي ، وتكون تسميات الاشهر التسميات الانجليزية بغض النظر عن اعدادات جهازي من النواحي التالية : 1)- لوكانت المنطقة او الدولة لجهازي هي دولة لاتعتمد التاريخ الميلادي كتاريخ رسمي مثلاً نفترض ان المنطقة الزمنية لجهازي هي السعودية التي تعتمد التقويم الهجري. 2)- و / او لوكان تنسيق التاريخ لجهازي هو التنسيق mm/dd/yyyy او yyyy/mm/dd او اي تنسيق غير التنسيق dd/mm/yyyy رابط هذا التعليق شارك More sharing options...
jjafferr قام بنشر يوليو 20, 2019 مشاركة قام بنشر يوليو 20, 2019 وعليكم السلام 🙂 انظر هذا الرابط جعفر رابط هذا التعليق شارك More sharing options...
كوماندير قام بنشر يوليو 20, 2019 الكاتب مشاركة قام بنشر يوليو 20, 2019 (معدل) اشكرك اخي الفاضل جعفر وجدت الرابط http://allenbrowne.com/ser-36.html ولكن في الحقيقة لم استوعب الكثير منه فهلا تفضل احد جهابذة المنتدى بالتفصيل ؟ تم تعديل يوليو 20, 2019 بواسطه كوماندير رابط هذا التعليق شارك More sharing options...
jjafferr قام بنشر يوليو 20, 2019 مشاركة قام بنشر يوليو 20, 2019 تفضل جعفر 1 رابط هذا التعليق شارك More sharing options...
كوماندير قام بنشر يوليو 20, 2019 الكاتب مشاركة قام بنشر يوليو 20, 2019 شكراً جزيلاً تسلم الانامل رابط هذا التعليق شارك More sharing options...
ابو جودي قام بنشر يوليو 20, 2019 مشاركة قام بنشر يوليو 20, 2019 منذ ساعه, كوماندير 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 1 رابط هذا التعليق شارك More sharing options...
ابو جودي قام بنشر يوليو 20, 2019 مشاركة قام بنشر يوليو 20, 2019 30 دقائق مضت, jjafferr said: تفضل جعفر وهذا المرفق لتمرير اى تاريخ كم القاعدة والتحكم بتنسيق هذا التاريخ دون النظر لاعدادات الجهاز ومن واقع جدول المرفق لــ أستاذى الجليل و معلمى القدير و والدى الحبيب الاستاذ @jjafferr مع بعض التغير داخل الجدول لتغيير التنسيق ثم تمرير التاريخ الى الموديول لنحصل على تنسيق موحد كما نريد Control Format Date - 2.accdb 2 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.