إجمالي مرات مشاهدة الصفحة

الاثنين، 19 سبتمبر 2016

دالة DatePart للتعامل مع أجزاء الوقت والتاريخ DatePart Function In VBA

السلام عليكم ورحمة الله وبركاته

أقدم لكم دالة مفيدة جداً ، الدالة اسمها DatePart ، ومن اسمها نقدر نستنتج وظيفتها ..
كلمة Part بالإنجليزي معناها جزء ، أي أن الدالة معنية بالأجزاء للوقت والتاريخ 


الصيغة العامة للدالة :DatePart(interval,date[,firstdayofweek[,firstweekofyear]])

الدالة متبوعة بقوس ، بعد القوس عدد 2 بارامتر إجباري ، وعدد 2 بارامتر اختياري
=======================================
البارامتر الأول هو الفاصل الزمني الذي ستقوم باستخدامه


وفي المرفق مثال على التاريخ الحالي والوقت الحالي لتوضيح الفواصل الزمنية بشكل مفهوم وتطبيقي

البارامتر الثاني ألا وهو التاريخ المطلوب العمل عليه ، في المرفق تمت الإشارة إلى التاريخ والوقت الحاليين .. باستخدام كلمة Now لتعيينها للمتغير.

البارامتر الثالث أول أيام الأسبوع (الافتراضي هو يوم الأحد .. ويرمز له بالرقم 1 ، ويمكن تغييره إلى أي رقم من 1 إلى 7 (بحسب أيام الأسبوع)

البارامتر الرابع وهو أول أسبوع في السنة ، وله ثلاثة اختيارات (1 وهو الخيار الافتراضي الذي يعمل على أول يوم من شهر يناير أياً كان عدد أيام الأسبوع ، والرقم 2 يعمل على أول أسبوع به أربعة أيام على الأقل من أيام السنة الجديدة ، والرقم 3 يعمل على أول أسبوع يكون كامل في أيام السنة الجديدة )

وإليكم الكود المستخدم في الملف المرفق للحصول على النتائج المطلوبة

Sub DatePart_Function_In_VBA()
 Dim strDate As Date

 strDate = Now
 Columns("B:B").ClearContents

 Range("B1").Value = DatePart("YYYY", strDate) 'Year
 Range("B2").Value = DatePart("M", strDate) 'Month
 Range("B3").Value = DatePart("D", strDate) 'Day
 Range("B4").Value = DatePart("Y", strDate) 'Day Of Year
 Range("B5").Value = DatePart("Q", strDate) 'Quarter
 Range("B6").Value = DatePart("W", strDate) 'Weekday >> Sunday Is The Default Start = 1
 Range("B7").Value = DatePart("WW", strDate) 'Week
 Range("B8").Value = DatePart("H", strDate) 'Hour
 Range("B9").Value = DatePart("N", strDate) 'Minute
 Range("B10").Value = DatePart("S", strDate) 'Second
End Sub

إعداد / ياسر خليل أبو البراء

هناك تعليقان (2):

  1. جميل جدا بارك الله فيك وفي ميزان حسناتك

    ردحذف
  2. ربنا يحفظك ويبارك فيك أخي الكريم ، مشكور على مرورك العطر بالمدونة

    ردحذف