本文整理汇总了VB.NET中Microsoft.VisualBasic.DateAndTime.DatePart方法的典型用法代码示例。如果您正苦于以下问题：VB.NET DateAndTime.DatePart方法的具体用法？VB.NET DateAndTime.DatePart怎么用？VB.NET DateAndTime.DatePart使用的例子？那么恭喜您, 这里精选的方法代码示例或许可以为您提供帮助。
在下文中一共展示了DateAndTime.DatePart方法的1个代码示例，这些例子默认根据受欢迎程度排序。您可以为喜欢或者感觉有用的代码点赞，您的评价将有助于系统推荐出更棒的VB.NET代码示例。
示例1: InputBox
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)