الساعة والتاريخ الهجري والميلادي في اكسس

[الصامت]

أيها ا لأخوة الكرام

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

أريد أن أضع الساعة والتاريخ الهجري والميلادي على نموذج في الأكسس

أرجو التكرم شرح الطريقه خطوة خطوة. حتى أفهمها أنا ومن هو مثلي مبتدأ في البرمجة جعلها الله في موازين حسناتكم يوم القيامة. وشكرا للجميع

-

[فتى الوادي]

السلام عليكم ...

قم بأنشاء مربعين نص الأول يحمل عنوان الساعة والثاني بعنوان التاريخ

وفي خصائص الحقل الأول " مصدر عنصر التحكم " ضع =data()

وفي الثاني =time()

هذا ينفع مع أحد التاريخين الهجري أو الميلادي .. أما الجمع بين التاريخين ... فلعل أحد الأخوة يفيدنا في ذلك ..

والسلام

[الصامت]

شكرا لك أخي العزيز/ فتى الوادي

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

[مصلح الحريصي]

أضف مربع نص وسمه : TxtTime1 يظهر فيه الوقت بصيغة 12 ساعة

أكتب الكود التالي في حدث " في الحالي للنموذج

 Me.TxtTime1 = Time()

أضف مربع نص وسمه : TxtTime2 يظهر فيه الوقت بصيغة 24 ساعة أكتب الكود التالي في حدث " في الحالي للنموذج

 Me.TxtTime2 = Time$()

لاحظ الفرق في الكودين هي علامة الدولار $ فقط أضف مربع نص وسمه : TxtTDateHijri يظهر فيه التاريخ الهجري أكتب الكود التالي في حدث " في الحالي للنموذج

                   Calendar = vbCalHijri
          TxtTDateHijri = Date
                  TxtTDateHijri = Format(DateHijiri, "yyyy/mm/dd") & " هـ"

أضف مربع نص وسمه : TxtTDateGreg يظهر فيه التاريخ الميلادي أكتب الكود التالي في حدث " في الحالي للنموذج

Calendar = vbCalGreg
                TxtTDateGreg = Date
            TxtTDateGreg = Format(DateEnglesh, "yyyy/mm/dd") & " م "

غير في تسميات مربعات النصوص مثل ما تريد

[فتى الوادي]

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

فما هو السبب ؟؟؟!!

[مصلح الحريصي]

اخي فتى الوادي

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

ملاحظة :

بالنسبة للكود الخاص بالوقت أعلاه فأنه لا يتغير وظل على نفس الوقت الذي فتح النموذج عليه وعند الرغبة في أن يستمر الوقت أثناء ما يكون النموذج مفتوحاً فلا بد من نقل كودي الوقت أعلاه من حدث في الحالي إلى حدث " عند عداد الوقت " وجعل الفاصل الزمني لعداد الوقت = 1000 أي ثانية.

أيضاً لا بد من ضبط وقت وتاريخ الجهاز

تيحاتي للجميع

Date_And_Time.rar

تم تعديل أبريل 8, 2004 بواسطه مصلح الحريصي

[فتى الوادي]

السلام عليكم

أخي مصلح .. أظن أن الكود يحتاج إلى مرجع من المكتبة ... لكن ما هو ؟؟!

[مصلح الحريصي]

ليش المثال ما عمل لديك

[المتنور]

مثال رائع و سهل

الله يعطيك العافية أخي مصلح

تحياتي

[أبو أفنان]

دائما أنت رائع أخي مصلح وأنت بحق مملكة أكواد