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

يمكنك استخدام الدالة DateSerial في VBA لإرجاع تاريخ ليوم وشهر وسنة محددة.

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

 SubUseDateSerial ()
    
Dim i As Integer

For i = 2 To 13
    Range(" D " & i) = DateSerial(Range(" C " & i), Range(" B " & i), Range(" A " & i))
Next i
    
End Sub

سيُرجع هذا الماكرو المحدد قيم التاريخ في النطاق D2:D13 باستخدام قيم السنة في العمود C، وقيم الشهر في العمود B، وقيم اليوم في العمود A.

يوضح المثال التالي كيفية استخدام الدالة DateSerial عمليًا.

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

لنفترض أن لدينا الأعمدة التالية في Excel التي تعرض اليوم والشهر والسنة لتواريخ مختلفة:

لنفترض أننا نريد عرض قيم التاريخ في العمود D، باستخدام قيم اليوم والشهر والسنة في كل صف.

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

 SubUseDateSerial ()
    
Dim i As Integer

For i = 2 To 13
    Range(" D " & i) = DateSerial(Range(" C " & i), Range(" B " & i), Range(" A " & i))
Next i
    
End Sub

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

يعرض العمود D قيمة التاريخ الناتجة عن استخدام قيم اليوم والشهر والسنة من الأعمدة A وB وC على التوالي.

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

مصادر إضافية

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

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