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