Vba

التاريخ و الوقت

Date Time

سنة ، شهر ، يوم من التاريخ | DateAdd | التاريخ والوقت الحاليان | ساعة ، دقيقة ، ثانية | الوقت ثمين



تعلم كيفية العمل مع التواريخ والأوقات في برنامج Excel VBA .

ضع زر الأوامر في ورقة العمل الخاصة بك وأضف أسطر التعليمات البرمجية أدناه. لتنفيذ أسطر التعليمات البرمجية ، انقر فوق زر الأمر على الورقة.





سنة ، شهر ، يوم من التاريخ

يحصل الماكرو التالي على سنة التاريخ. للإعلان عن تاريخ ، استخدم بيان Dim. لتهيئة تاريخ ، استخدم الدالة DateValue.

الشفرة:



لا أحدالمثال التاريخكما تاريخ

exampleDate = DateValue ('19 يناير 2020')

سنة MsgBox (exampleDate)

نتيجة:

سنة تاريخ في Excel VBA

ملاحظة: استخدم الشهر واليوم للحصول على الشهر واليوم من التاريخ.

DateAdd

لإضافة عدد من الأيام إلى تاريخ ، استخدم الدالة DateAdd. تحتوي الدالة DateAdd على ثلاث وسيطات. اكتب 'd' لأول وسيطة لإضافة أيام. قم بملء الرقم 3 للوسيطة الثانية لإضافة 3 أيام. تمثل الوسيطة الثالثة التاريخ الذي سيتم إضافة عدد الأيام إليه.

كيفية التقريب في Excel

الشفرة:

لا أحدالموعد الاولكما تاريخ، secondDateكما تاريخ

firstDate = DateValue ('19 يناير 2020')
secondDate = DateAdd ('d'، 3، firstDate)

msgBox secondDate

نتيجة:

DateAdd

ملاحظة: قم بتغيير 'd' إلى 'm' لإضافة عدد من الأشهر إلى تاريخ. ضع المؤشر على DateAdd في محرر Visual Basic وانقر فوق F1 للحصول على تعليمات حول محددات الفاصل الزمني الأخرى. التواريخ بتنسيق الولايات المتحدة. الأشهر الأولى ، الأيام الثانية. يعتمد هذا النوع من التنسيق على إعدادات Windows الإقليمية الخاصة بك.

التاريخ والوقت الحاليان

للحصول على التاريخ والوقت الحاليين ، استخدم وظيفة الآن.

الشفرة:

كيفية تغيير المحور من الأرقام إلى الكلمات في Excel
MsgBox الآن

نتيجة:

التاريخ والوقت الحاليان

ساعة ، دقيقة ، ثانية

احصل على ساعة من الوقت ، استخدم وظيفة الساعة.

الشفرة:

ساعة MsgBox (الآن)

نتيجة:

سطر جديد في خلية اكسل ماك

ساعة من الوقت الحالي

ملاحظة: استخدم الدقيقة والثانية للحصول على الدقيقة والثانية من الوقت.

الوقت ثمين

تحوّل الدالة TimeValue سلسلة إلى رقم تسلسلي زمني. الرقم التسلسلي للوقت هو رقم بين 0 و 1. على سبيل المثال ، يتم تمثيل الظهر (في منتصف اليوم) على أنه 0.5.

الشفرة:

MsgBox TimeValue ('9:20:01 صباحًا')

نتيجة:

الوقت ثمين

الآن ، لكي ترى بوضوح أن Excel يتعامل مع الأوقات داخليًا كأرقام بين 0 و 1 ، أضف سطور التعليمات البرمجية التالية:

لا أحدوكما مزدوج
y = TimeValue ('09: 20: 01 ')
MsgBox و

نتيجة:

الرقم التسلسلي للوقت

1/8 اكتمل! تعرف على المزيد حول التواريخ والأوقات>
انتقل إلى الفصل التالي: الأحداث



^