اذهب الي المحتوي
أوفيسنا

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


الصامت

الردود الموصى بها

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

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

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

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

-

رابط هذا التعليق
شارك

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

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

وفي خصائص الحقل الأول " مصدر عنصر التحكم " ضع =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

تم تعديل بواسطه مصلح الحريصي
رابط هذا التعليق
شارك

  • 3 months later...

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information