Binaryworld - An enhanced VB DatePart function ... [ VB -> Date-Time ]

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.

Click here to copy the following block

Enum DateTimePart
  dtYear
  dtQuarter
  dtMonth
  dtMonthName
  dtShortMonthName
  dtDay
  dtDayOfTheYear
  dtWeekday
  dtWeekdayName
  dtShortWeekdayName
  dtWeekOfTheYear
  dtHour
  dtMinute
  dtSecond
End Enum

' Enhanced VB DatePart function
Function 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 Select

End Function