devxlogo

An enhanced VB DatePart function

An enhanced VB DatePart function

Here is an enhanced version of VB DatePart function: the first parameter is now an enumerated type, so easier to use. DatePartEx is 4-5 times faster than DatePart and supports also two new intervals: MonthName and WeekdayName.

Enum DateTimePart    dtYear    dtQuarter    dtMonth    dtMonthName    dtShortMonthName    dtDay    dtDayOfTheYear    dtWeekday    dtWeekdayName    dtShortWeekdayName    dtWeekOfTheYear    dtHour    dtMinute    dtSecondEnd Enum' Enhanced VB DatePart functionFunction DatePartEx(ByVal Interval As DateTimePart, newDate As Date, _    Optional FirstDayOfWeek As VbDayOfWeek = vbSunday, Optional FirstWeekOfYear _    As VbFirstWeekOfYear = vbFirstJan1) As Variant    ' Select the right and faster date/time function    Select Case Interval        Case dtYear            DatePartEx = Year(newDate)        Case dtQuarter            DatePartEx = DatePart("q", newDate, FirstDayOfWeek, FirstWeekOfYear)        Case dtMonth            DatePartEx = Month(newDate)        Case dtMonthName            DatePartEx = MonthName(Month(newDate), False)        Case dtShortMonthName            DatePartEx = MonthName(Month(newDate), True)        Case dtDay            DatePartEx = Day(newDate)        Case dtDayOfTheYear            DatePartEx = DatePart("y", newDate, FirstDayOfWeek, FirstWeekOfYear)        Case dtWeekday            DatePartEx = Weekday(newDate, FirstDayOfWeek)        Case dtWeekdayName            DatePartEx = Format(newDate, "dddd")        Case dtShortWeekdayName            DatePartEx = Format(newDate, "ddd")        Case dtWeekOfTheYear            DatePartEx = DatePart("ww", newDate, FirstDayOfWeek, _                FirstWeekOfYear)        Case dtHour            DatePartEx = Hour(newDate)        Case dtMinute            DatePartEx = Minute(newDate)        Case dtSecond            DatePartEx = Second(newDate)    End SelectEnd Function

See also  How IoT Tech Will Transform Logistics
devxblackblue

About Our Editorial Process

At DevX, we’re dedicated to tech entrepreneurship. Our team closely follows industry shifts, new products, AI breakthroughs, technology trends, and funding announcements. Articles undergo thorough editing to ensure accuracy and clarity, reflecting DevX’s style and supporting entrepreneurs in the tech sphere.

See our full editorial policy.

About Our Journalist