/ / Excel VBA التاريخ والوقت

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

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

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

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

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

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

الشفرة:

Dim exampleDate As Date

exampleDate = DateValue("Jun 19, 2010")

MsgBox Year(exampleDate)

نتيجة:

سنة من تاريخ في إكسل VBA

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

DateAdd

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

الشفرة:

Dim firstDate As Date, secondDate As Date

firstDate = DateValue("Jun 19, 2010")
secondDate = DateAdd("d", 3, firstDate)

MsgBox secondDate

نتيجة:

DateAdd

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

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

للحصول على التاريخ والوقت الحالي ، استخدم الدالة Now.

الشفرة:

MsgBox Now

نتيجة:

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

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

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

الشفرة:

MsgBox Hour(Now)

نتيجة:

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

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

الوقت ثمين

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

الشفرة:

MsgBox TimeValue("9:20:01 am")

نتيجة:

الوقت ثمين

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

Dim y As Double
y = TimeValue("09:20:01")
MsgBox y

نتيجة:

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

اقرأ أيضًا: