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 来计算星期几或当前小时。
如果选择 Interval 参数 DateInterval.Weekday，则返回的值与 FirstDayOfWeek 枚举的值一致。 如果选择 DateInterval.WeekOfYear，DatePart 使用 System.Globalization 命名空间的 Calendar 和 CultureInfo 类来确定当前设置。
FirstDayOfWeekValue 参数会影响使用 DateInterval.Weekday 和 DateInterval.WeekOfYearInterval 设置的计算。
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 参数可以具有以下设置之一。
| 枚举值 | 字符串 | 要返回的日期/时间值的一部分 |
|---|---|---|
DateInterval.Day |
d | 月日（1 至 31 日） |
DateInterval.DayOfYear |
y | 一年中的一天 （1 到 366） |
DateInterval.Hour |
h | 小时 |
DateInterval.Minute |
n | 分钟 |
DateInterval.Month |
m | 月 |
DateInterval.Quarter |
q | 季度 |
DateInterval.Second |
s | 第二 |
DateInterval.Weekday |
w | 星期几 （1 到 7） |
DateInterval.WeekOfYear |
ww | 一周 （1 到 53） |
DateInterval.Year |
yyyyy | 年 |
FirstDayOfWeekValue 参数可以具有以下设置之一。
| 枚举值 | 价值 | 描述 |
|---|---|---|
FirstDayOfWeek.System |
0 | 系统设置中指定的第一周的第一天 |
FirstDayOfWeek.Sunday |
1 | 星期日（默认值） |
FirstDayOfWeek.Monday |
2 | 星期一（符合 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 来计算星期几或当前小时。
如果选择 Interval 参数 DateInterval.Weekday，则返回的值与 FirstDayOfWeek 枚举的值一致。 如果选择 DateInterval.WeekOfYear，DatePart 使用 System.Globalization 命名空间的 Calendar 和 CultureInfo 类来确定当前设置。
FirstDayOfWeekValue 参数会影响使用 DateInterval.Weekday 和 DateInterval.WeekOfYearInterval 设置的计算。
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 参数可以具有以下设置之一。
| 枚举值 | 字符串 | 要返回的日期/时间值的一部分 |
|---|---|---|
DateInterval.Day |
d | 月日（1 至 31 日） |
DateInterval.DayOfYear |
y | 一年中的一天 （1 到 366） |
DateInterval.Hour |
h | 小时 |
DateInterval.Minute |
n | 分钟 |
DateInterval.Month |
m | 月 |
DateInterval.Quarter |
q | 季度 |
DateInterval.Second |
s | 第二 |
DateInterval.Weekday |
w | 星期几 （1 到 7） |
DateInterval.WeekOfYear |
ww | 一周 （1 到 53） |
DateInterval.Year |
yyyyy | 年 |
FirstDayOfWeekValue 参数可以具有以下设置之一。
| 枚举值 | 价值 | 描述 |
|---|---|---|
FirstDayOfWeek.System |
0 | 系统设置中指定的第一周的第一天 |
FirstDayOfWeek.Sunday |
1 | 星期日（默认值） |
FirstDayOfWeek.Monday |
2 | 星期一（符合 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。
提交和查看相关反馈