سنة ، شهر ، يوم من التاريخ | DateAdd | التاريخ والوقت الحاليان | ساعة ، دقيقة ، ثانية | الوقت ثمين
تعلم كيفية العمل مع التواريخ والأوقات في برنامج Excel VBA .
ضع زر الأوامر في ورقة العمل الخاصة بك وأضف أسطر التعليمات البرمجية أدناه. لتنفيذ أسطر التعليمات البرمجية ، انقر فوق زر الأمر على الورقة.
سنة ، شهر ، يوم من التاريخ
يحصل الماكرو التالي على سنة التاريخ. للإعلان عن تاريخ ، استخدم بيان Dim. لتهيئة تاريخ ، استخدم الدالة DateValue.
الشفرة:
لا أحدالمثال التاريخكما تاريخ
exampleDate = DateValue ('19 يناير 2020')
سنة MsgBox (exampleDate)
نتيجة:
ملاحظة: استخدم الشهر واليوم للحصول على الشهر واليوم من التاريخ.
DateAdd
لإضافة عدد من الأيام إلى تاريخ ، استخدم الدالة DateAdd. تحتوي الدالة DateAdd على ثلاث وسيطات. اكتب 'd' لأول وسيطة لإضافة أيام. قم بملء الرقم 3 للوسيطة الثانية لإضافة 3 أيام. تمثل الوسيطة الثالثة التاريخ الذي سيتم إضافة عدد الأيام إليه.
كيفية التقريب في Excel
الشفرة:
لا أحدالموعد الاولكما تاريخ، secondDateكما تاريخfirstDate = DateValue ('19 يناير 2020')
secondDate = DateAdd ('d'، 3، firstDate)
msgBox secondDate
نتيجة:
ملاحظة: قم بتغيير 'd' إلى 'm' لإضافة عدد من الأشهر إلى تاريخ. ضع المؤشر على DateAdd في محرر Visual Basic وانقر فوق F1 للحصول على تعليمات حول محددات الفاصل الزمني الأخرى. التواريخ بتنسيق الولايات المتحدة. الأشهر الأولى ، الأيام الثانية. يعتمد هذا النوع من التنسيق على إعدادات Windows الإقليمية الخاصة بك.
التاريخ والوقت الحاليان
للحصول على التاريخ والوقت الحاليين ، استخدم وظيفة الآن.
الشفرة:
كيفية تغيير المحور من الأرقام إلى الكلمات في ExcelMsgBox الآن
نتيجة:
ساعة ، دقيقة ، ثانية
احصل على ساعة من الوقت ، استخدم وظيفة الساعة.
الشفرة:
ساعة MsgBox (الآن)نتيجة:
سطر جديد في خلية اكسل ماك
ملاحظة: استخدم الدقيقة والثانية للحصول على الدقيقة والثانية من الوقت.
الوقت ثمين
تحوّل الدالة TimeValue سلسلة إلى رقم تسلسلي زمني. الرقم التسلسلي للوقت هو رقم بين 0 و 1. على سبيل المثال ، يتم تمثيل الظهر (في منتصف اليوم) على أنه 0.5.
الشفرة:
MsgBox TimeValue ('9:20:01 صباحًا')نتيجة:
الآن ، لكي ترى بوضوح أن Excel يتعامل مع الأوقات داخليًا كأرقام بين 0 و 1 ، أضف سطور التعليمات البرمجية التالية:
لا أحدوكما مزدوجy = TimeValue ('09: 20: 01 ')
MsgBox و
نتيجة:
انتقل إلى الفصل التالي: الأحداث