كيفية استخدام وظيفة datevalue في vba (مع مثال)

يمكنك استخدام الدالة DateValue في VBA لإرجاع قيمة التاريخ من سلسلة معينة.

إليك طريقة شائعة لاستخدام هذه الوظيفة عمليًا:

 Sub GetDateValue()
    
Dim i As Integer

For i = 2 To 7
    Range(" B " & i) = DateValue(Range(" A " & i))
Next i
    
End Sub

سيقوم هذا الماكرو المحدد باستخراج قيمة التاريخ من التواريخ والأوقات الموجودة في النطاق A2:A7 وإرجاع قيمة التاريخ هذه في النطاق المقابل من B2:B7 .

يوضح المثال التالي كيفية استخدام بناء الجملة هذا عمليًا.

مثال: كيفية استخدام الدالة DateValue في VBA

لنفترض أن لدينا عمود التاريخ/الوقت التالي في Excel:

لنفترض أننا نريد استخراج التاريخ من كل تاريخ في العمود A وعرضه في العمود B.

يمكننا إنشاء الماكرو التالي للقيام بذلك:

 Sub GetDateValue()
    
Dim i As Integer

For i = 2 To 7
    Range(" B " & i) = DateValue(Range(" A " & i))
Next i
    
End Sub

عندما نقوم بتشغيل هذا الماكرو، نحصل على الإخراج التالي:

يعرض العمود B قيمة التاريخ لكل وقت في العمود A.

على سبيل المثال:

• ترجع الدالة DateValue 01/01/2023 من 01/01/2023 10:15:34
• تقوم الدالة DateValue بإرجاع 01/03/2023 من 01/03/2023 12:34:18 مساءً
• ترجع الدالة DateValue 01/05/2023 من 01/05/2023 8:23:00

وما إلى ذلك وهلم جرا.

ملاحظة : يمكنك العثور على الوثائق الكاملة لوظيفة DateValue في VBA هنا .

مصادر إضافية

تشرح البرامج التعليمية التالية كيفية تنفيذ المهام الشائعة الأخرى في VBA:

VBA: كيفية مقارنة التواريخ
VBA: كيفية الحصول على اسم الشهر من التاريخ
فبا: رقم أكبر من التاريخ