Visual Basic DatePart 函数

定义和用法

DatePart 函数可返回给定日期的指定部分。

注释：firstdayofweek 参数会对使用 "w" 和 "ww" 间隔符号的计算产生影响。

语法

DatePart(interval,date[,firstdayofweek[,firstweekofyear]])

参数	描述
interval	必需的。计算 date1 和 date2 之间的时间间隔的单位。可采用下面的值： yyyy - 年 q - 季度 m - 月 y - 当年的第几天 d - 日 w - 当周的第几天 ww - 周 h - 小时 n - 分钟 s - 秒
date	必需的。需计算的日期表达式。
firstdayofweek	可选的。规定一周的日数，即当周的第几天。可采用下面的值： 0 = vbUseSystemDayOfWeek - 使用区域语言支持 (NLS) API 设置。 1 = vbSunday - 星期日 (默认) 2 = vbMonday - 星期一 3 = vbTuesday - 星期二 4 = vbWednesday - 星期三 5 = vbThursday - 星期四 6 = vbFriday - 星期五 7 = vbSaturday - 星期六
firstweekofyear	可选的。规定一年中的第一周。可采用下面的值： 0 = vbUseSystem - 使用区域语言支持 (NLS) API 设置。 1 = vbFirstJan1 - 由 1 月 1 日所在的星期开始（默认）。 2 = vbFirstFourDays - 由在新年中至少有四天的第一周开始。 3 = vbFirstFullWeek - 由在新的一年中第一个完整的周开始。

实例

例子 1

Module Module1
    Sub Main()
        Dim d = CDate("2/10/96 16:45:30")
        Console.WriteLine(DatePart("yyyy",d)) '输出：1996
        Console.WriteLine(DatePart("m",d)) '输出：2
        Console.WriteLine(DatePart("d",d)) '输出：10
        Console.WriteLine(DatePart("h",d)) '输出：16
        Console.WriteLine(DatePart("n",d)) '输出：45
        Console.WriteLine(DatePart("s",d)) '输出：30
        Console.WriteLine(DatePart("q",d)) '输出：1，2月是第1季
        Console.WriteLine(DatePart("y",d)) '输出：41，2月10日是1996年的第41日。
        Console.WriteLine(DatePart("ww",d)) '输出：6，2月10日是1996年的第6周。
        Console.WriteLine(DatePart("w",d)) '输出：7，2月10日在在1996年是第6周的第7日（星期六）。
    End Sub
End Module

运行一下

Visual Basic DatePart 函数

定义和用法

语法

实例

例子 1

分类导航