DateAndTime.DatePart 方法
定义
重要
一些信息与预发行产品相关，相应产品在发行之前可能会进行重大修改。 对于此处提供的信息，Microsoft 不作任何明示或暗示的担保。
返回包含给定 Date 值的指定组件的整数值。
重载
| DatePart(DateInterval, DateTime, FirstDayOfWeek, FirstWeekOfYear) |
返回包含给定 |
| DatePart(String, Object, FirstDayOfWeek, FirstWeekOfYear) |
返回一个值，其中包含给定 |
DatePart(DateInterval, DateTime, FirstDayOfWeek, FirstWeekOfYear)
- Source:
- DateAndTime.vb
- Source:
- DateAndTime.vb
- Source:
- DateAndTime.vb
返回包含给定 Date 值的指定组件的整数值。
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 -> intPublic 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参数
- Interval
- DateInterval
必需。 DateInterval 枚举值或字符串表达式，它表示要返回的日期/时间值部分。
- DateValue
- DateTime
必需。 要计算的 Date 值。
- FirstDayOfWeekValue
- FirstDayOfWeek
可选。 从 FirstDayOfWeek 枚举中选择的值，用于指定一周的第一天。 如果未指定，则使用 Sunday。
- FirstWeekOfYearValue
- FirstWeekOfYear
可选。 从 FirstWeekOfYear 枚举中选择的值，用于指定一年的第一周。 如果未指定，则使用 Jan1。
返回
包含给定 Date 值的指定组件的整数值。
例外
Interval 无效。
DateValue 并不强制为 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，则使用 Calendar 命名空间的 System.Globalization 和 CultureInfo 类DatePart来确定当前设置。
参数FirstDayOfWeekValue会影响使用 和 DateInterval.WeekOfYearInterval 设置的DateInterval.Weekday计算。 参数FirstWeekOfYearValue影响为 Interval指定的DateInterval.WeekOfYear计算。
由于结构支持DateTime每个Date值，因此其方法提供了检索日期/时间部分时的其他选项。 例如，可以获取变量 Date 的整个日期值，时间值设置为午夜，如下所示：
Dim CurrDatTim As Date = Now ' Current date and time.
Dim LastMidnight As Date = CurrDatTim.Date ' At midnight.
参数 Interval 可以具有以下设置之一。
| 枚举值 | String | 要返回的日期/时间值的一部分 |
|---|---|---|
DateInterval.Day |
d | 一月的某一日（1 到 31） |
DateInterval.DayOfYear |
y | 年中的哪一天（从 1 到 366） |
DateInterval.Hour |
h | 小时 |
DateInterval.Minute |
n | Minute |
DateInterval.Month |
m | Month |
DateInterval.Quarter |
q | Quarter |
DateInterval.Second |
s | 秒 |
DateInterval.Weekday |
w | 星期几（从 1 到 7） |
DateInterval.WeekOfYear |
ww | 年中的哪一周（从 1 到 53） |
DateInterval.Year |
yyyy | Year |
参数 FirstDayOfWeekValue 可以具有以下设置之一。
| 枚举值 | 值 | 说明 |
|---|---|---|
FirstDayOfWeek.System |
0 | 在系统设置中指定的一周的第一天 |
FirstDayOfWeek.Sunday |
1 | 星期日 (默认) |
FirstDayOfWeek.Monday |
2 | Monday (符合 ISO 标准 8601 第 3.17 节) |
FirstDayOfWeek.Tuesday |
3 | 星期二 |
FirstDayOfWeek.Wednesday |
4 | 星期三 |
FirstDayOfWeek.Thursday |
5 | 星期四 |
FirstDayOfWeek.Friday |
6 | 星期五 |
FirstDayOfWeek.Saturday |
7 | 星期六 |
参数 FirstWeekOfYearValue 可以具有以下设置之一。
| 枚举值 | 值 | 说明 |
|---|---|---|
FirstWeekOfYear.System |
0 | 系统设置中指定的一年的第一周 |
FirstWeekOfYear.Jan1 |
1 | 1 月 1 日发生的周 (默认) |
FirstWeekOfYear.FirstFourDays |
2 | 新年至少有四天的星期 (符合 ISO 标准 8601 第 3.17 节) |
FirstWeekOfYear.FirstFullWeek |
3 | 新年的第一个完整周 |
另请参阅
- DateAdd
- DateDiff
- Day(DateTime)
- Format(Object, String)
- Now
- Weekday(DateTime, FirstDayOfWeek)
- Year(DateTime)
- System
- 数据类型摘要 (Visual Basic)
适用于
DatePart(String, Object, FirstDayOfWeek, FirstWeekOfYear)
- Source:
- DateAndTime.vb
- Source:
- DateAndTime.vb
- Source:
- DateAndTime.vb
返回一个值，其中包含给定 Date 值的指定组件。
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 -> intPublic 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参数
- Interval
- String
必需。 DateInterval 枚举值或字符串表达式，它表示要返回的日期/时间值部分。
- DateValue
- Object
必需。 要计算的 Date 值。
- DayOfWeek
- FirstDayOfWeek
可选。 从 FirstDayOfWeek 枚举中选择的值，用于指定一周的第一天。 如果未指定，则使用 Sunday。
- WeekOfYear
- FirstWeekOfYear
可选。 从 FirstWeekOfYear 枚举中选择的值，用于指定一年的第一周。 如果未指定，则使用 Jan1。
返回
包含给定 Date 值的指定组件的整数值。
例外
Interval 无效。
DateValue 并不强制为 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，则使用 Calendar 命名空间的 System.Globalization 和 CultureInfo 类DatePart来确定当前设置。
参数FirstDayOfWeekValue会影响使用 和 DateInterval.WeekOfYearInterval 设置的DateInterval.Weekday计算。 参数FirstWeekOfYearValue影响为 Interval指定的DateInterval.WeekOfYear计算。
由于结构支持DateTime每个Date值，因此其方法提供了检索日期/时间部分时的其他选项。 例如，可以获取变量 Date 的整个日期值，时间值设置为午夜，如下所示：
Dim CurrDatTim As Date = Now ' Current date and time.
Dim LastMidnight As Date = CurrDatTim.Date ' At midnight.
参数 Interval 可以具有以下设置之一。
| 枚举值 | String | 要返回的日期/时间值的一部分 |
|---|---|---|
DateInterval.Day |
d | 一月的某一日（1 到 31） |
DateInterval.DayOfYear |
y | 年中的哪一天（从 1 到 366） |
DateInterval.Hour |
h | 小时 |
DateInterval.Minute |
n | Minute |
DateInterval.Month |
m | Month |
DateInterval.Quarter |
q | Quarter |
DateInterval.Second |
s | 秒 |
DateInterval.Weekday |
w | 星期几（从 1 到 7） |
DateInterval.WeekOfYear |
ww | 年中的哪一周（从 1 到 53） |
DateInterval.Year |
yyyy | Year |
参数 FirstDayOfWeekValue 可以具有以下设置之一。
| 枚举值 | 值 | 说明 |
|---|---|---|
FirstDayOfWeek.System |
0 | 在系统设置中指定的一周的第一天 |
FirstDayOfWeek.Sunday |
1 | 星期日 (默认) |
FirstDayOfWeek.Monday |
2 | Monday (符合 ISO 标准 8601 第 3.17 节) |
FirstDayOfWeek.Tuesday |
3 | 星期二 |
FirstDayOfWeek.Wednesday |
4 | 星期三 |
FirstDayOfWeek.Thursday |
5 | 星期四 |
FirstDayOfWeek.Friday |
6 | 星期五 |
FirstDayOfWeek.Saturday |
7 | 星期六 |
参数 FirstWeekOfYearValue 可以具有以下设置之一。
| 枚举值 | 值 | 说明 |
|---|---|---|
FirstWeekOfYear.System |
0 | 系统设置中指定的一年的第一周 |
FirstWeekOfYear.Jan1 |
1 | 1 月 1 日发生的周 (默认) |
FirstWeekOfYear.FirstFourDays |
2 | 新年至少有四天的星期 (符合 ISO 标准 8601 第 3.17 节) |
FirstWeekOfYear.FirstFullWeek |
3 | 新年的第一个完整周 |
另请参阅
- DateAdd
- DateDiff
- Day(DateTime)
- Format(Object, String)
- Now
- Weekday(DateTime, FirstDayOfWeek)
- Year(DateTime)
- System
- 数据类型摘要 (Visual Basic)
适用于
反馈
即将发布：在整个 2024 年，我们将逐步淘汰作为内容反馈机制的“GitHub 问题”，并将其取代为新的反馈系统。 有关详细信息，请参阅：https://aka.ms/ContentUserFeedback。
提交和查看相关反馈