Question

在VBA中，我知道您可以使用此语法从日期中减去一年

Dim testdate As String, DateTest As String
testdate= "03/21/2017"
DateTest = Month(testdate) & "/" & Day(testdate) & "/" & Year(testdate) - 1

但是你怎么能找到某一年的第一个和最后一个日期？例如，让我们使用相同的日期

testdate = "03/21/2017"

并获取以下值

firstdate = "01/01/2017"
lastdate = "12/31/2017"

Answer 1

您可以使用DateSerial：

Sub Test()

    Dim dt As Date, firstDay As Date, lastDay As Date

    dt = Date
    firstDay = DateSerial(Year(dt), 1, 1)
    lastDay = DateSerial(Year(dt), 12, 31)

    Debug.Print firstDay
    Debug.Print lastDay

End Sub

Answer 2

如果它始终是你感兴趣的一年的开始和结束，你可以使用1月1日和12月31日。要模仿你的语法：

Dim testdate As String, DateTest As String
testdate= "03/21/2017"
FirstDayOfYear = "1/1/" & Year(testdate)
LastDayOfYear = "12/31/" & Year(testdate)

获得年度的第一天和最后一天

2 个答案: