VBA编程，利用DatePart函数获取特定日期

Excel对于日期格式有多种应用方式，当然在工作中，我们也会用到各种不同的日期格式，如此便有了许多种要设置的日期。

比如，年，月，日，季，周等。

DatePart函数给了我们一种获取日期方式，如，要找到某个日期里的第几周或第几个月。

这样，利用DatePar函数就显得很有必要。

下图为DatePart函数语法：

语法：

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

下图为语法中用到的一些设置关键字。

示例代码：

Private Sub GetDateNumbers()
'计算时间
Dim R As Range, ri As Integer
Set R = Range("B5:B14")
For ri = 1 To R.Count
    With R.Item(ri).Offset(0, 3)
            .Value = VBA.DatePart(.Offset(0, -1).Value, R.Item(ri))
    End With
Next
End Sub

通过以上示例可实现获取不同日期在某一个时间段内的数据。

比如，某年的第几个月，某月的第几天，某天是星期几的第几周，等等。

这个函数很实用，通过一些实际示例会有不错的表现作用。

欢迎关注、收藏

---END---