DateAndTime.DatePart Метод

Исходный код:

DateAndTime.vb

Исходный код:

DateAndTime.vb

Исходный код:

DateAndTime.vb

public static int DatePart (Microsoft.VisualBasic.DateInterval Interval, DateTime DateValue, Microsoft.VisualBasic.FirstDayOfWeek FirstDayOfWeekValue = Microsoft.VisualBasic.FirstDayOfWeek.Sunday, Microsoft.VisualBasic.FirstWeekOfYear FirstWeekOfYearValue = Microsoft.VisualBasic.FirstWeekOfYear.Jan1);

static member DatePart : Microsoft.VisualBasic.DateInterval * DateTime * Microsoft.VisualBasic.FirstDayOfWeek * Microsoft.VisualBasic.FirstWeekOfYear -> int

Public Function DatePart (Interval As DateInterval, DateValue As DateTime, Optional FirstDayOfWeekValue As FirstDayOfWeek = Microsoft.VisualBasic.FirstDayOfWeek.Sunday, Optional FirstWeekOfYearValue As FirstWeekOfYear = Microsoft.VisualBasic.FirstWeekOfYear.Jan1) As Integer

Параметры

Возвращаемое значение

Целочисленное значение, содержащее указанный компонент заданного Date значения.

Исключения

Примеры

Этот пример принимает дату и, используя функцию DatePart, отображает квартал года, в котором она происходит.

Dim DateString, Msg As String
Dim ActualDate As Date
' Enter February 12, 2008, or 2/12/2008.
DateString = InputBox("Enter a date:")
ActualDate = CDate(DateString)

' The first two examples use enumeration values for the interval.
Msg = "Quarter: " & DatePart(DateInterval.Quarter, ActualDate)
' The quarter is 1.
MsgBox(Msg)
Msg = "The day of the month: " & DatePart(DateInterval.Day, ActualDate)
' The day of the month is 12.
MsgBox(Msg)

' The next two examples use string values for the interval parameter.
Msg = "The week of the year: " & DatePart("ww", ActualDate)
' The week of the year is 7.
MsgBox(Msg)
Msg = "The day of the week: " & DatePart("w", ActualDate)
' The day of the week is 3 (Tuesday).
MsgBox(Msg)

Комментарии

Функцию DatePart можно использовать для оценки значения даты и времени и возврата определенного компонента. Например, можно использовать DatePart для вычисления дня недели или текущего часа.

Если выбрать DateInterval.Weekday для аргумента Interval, возвращаемое значение соответствует значениям перечисления FirstDayOfWeek. Если выбрать DateInterval.WeekOfYear, DatePart использует классы Calendar и CultureInfo пространства имен System.Globalization для определения текущих параметров.

Аргумент FirstDayOfWeekValue влияет на вычисления, использующие параметры DateInterval.Weekday и DateInterval.WeekOfYearInterval. Аргумент FirstWeekOfYearValue влияет на вычисления, указывающие DateInterval.WeekOfYear для Interval.

Так как каждое Date значение поддерживается структурой DateTime, его методы предоставляют дополнительные параметры для получения частей даты и времени. Например, можно получить все значение даты переменной Date с значением времени, заданным в полночь, следующим образом:

Dim CurrDatTim As Date = Now   ' Current date and time.  
Dim LastMidnight As Date = CurrDatTim.Date   ' At midnight.  

Аргумент Interval может иметь один из следующих параметров.

Аргумент FirstDayOfWeekValue может иметь один из следующих параметров.

Аргумент FirstWeekOfYearValue может иметь один из следующих параметров.

См. также раздел

• DateAdd
• DateDiff
• Day(DateTime)
• Format(Object, String)
• Now
• Weekday(DateTime, FirstDayOfWeek)
• Year(DateTime)
• System
• Сводка по типу данных (Visual Basic)

Исходный код:

DateAndTime.vb

Исходный код:

DateAndTime.vb

Исходный код:

DateAndTime.vb

public static int DatePart (string Interval, object? DateValue, Microsoft.VisualBasic.FirstDayOfWeek DayOfWeek = Microsoft.VisualBasic.FirstDayOfWeek.Sunday, Microsoft.VisualBasic.FirstWeekOfYear WeekOfYear = Microsoft.VisualBasic.FirstWeekOfYear.Jan1);

public static int DatePart (string Interval, object DateValue, Microsoft.VisualBasic.FirstDayOfWeek DayOfWeek = Microsoft.VisualBasic.FirstDayOfWeek.Sunday, Microsoft.VisualBasic.FirstWeekOfYear WeekOfYear = Microsoft.VisualBasic.FirstWeekOfYear.Jan1);

static member DatePart : string * obj * Microsoft.VisualBasic.FirstDayOfWeek * Microsoft.VisualBasic.FirstWeekOfYear -> int

Public Function DatePart (Interval As String, DateValue As Object, Optional DayOfWeek As FirstDayOfWeek = Microsoft.VisualBasic.FirstDayOfWeek.Sunday, Optional WeekOfYear As FirstWeekOfYear = Microsoft.VisualBasic.FirstWeekOfYear.Jan1) As Integer

Параметры

Возвращаемое значение

Целочисленное значение, содержащее указанный компонент заданного Date значения.

Исключения

Примеры

Этот пример принимает дату и, используя функцию DatePart, отображает квартал года, в котором она происходит.

Dim DateString, Msg As String
Dim ActualDate As Date
' Enter February 12, 2008, or 2/12/2008.
DateString = InputBox("Enter a date:")
ActualDate = CDate(DateString)

' The first two examples use enumeration values for the interval.
Msg = "Quarter: " & DatePart(DateInterval.Quarter, ActualDate)
' The quarter is 1.
MsgBox(Msg)
Msg = "The day of the month: " & DatePart(DateInterval.Day, ActualDate)
' The day of the month is 12.
MsgBox(Msg)

' The next two examples use string values for the interval parameter.
Msg = "The week of the year: " & DatePart("ww", ActualDate)
' The week of the year is 7.
MsgBox(Msg)
Msg = "The day of the week: " & DatePart("w", ActualDate)
' The day of the week is 3 (Tuesday).
MsgBox(Msg)

Комментарии

Функцию DatePart можно использовать для оценки значения даты и времени и возврата определенного компонента. Например, можно использовать DatePart для вычисления дня недели или текущего часа.

Если выбрать DateInterval.Weekday для аргумента Interval, возвращаемое значение соответствует значениям перечисления FirstDayOfWeek. Если выбрать DateInterval.WeekOfYear, DatePart использует классы Calendar и CultureInfo пространства имен System.Globalization для определения текущих параметров.

Аргумент FirstDayOfWeekValue влияет на вычисления, использующие параметры DateInterval.Weekday и DateInterval.WeekOfYearInterval. Аргумент FirstWeekOfYearValue влияет на вычисления, указывающие DateInterval.WeekOfYear для Interval.

Так как каждое Date значение поддерживается структурой DateTime, его методы предоставляют дополнительные параметры для получения частей даты и времени. Например, можно получить все значение даты переменной Date с значением времени, заданным в полночь, следующим образом:

Dim CurrDatTim As Date = Now   ' Current date and time.  
Dim LastMidnight As Date = CurrDatTim.Date   ' At midnight.  

Аргумент Interval может иметь один из следующих параметров.

Аргумент FirstDayOfWeekValue может иметь один из следующих параметров.

Аргумент FirstWeekOfYearValue может иметь один из следующих параметров.

См. также раздел

• DateAdd
• DateDiff
• Day(DateTime)
• Format(Object, String)
• Now
• Weekday(DateTime, FirstDayOfWeek)
• Year(DateTime)
• System
• Сводка по типу данных (Visual Basic)