Question

所以说我得到今天的日期=TODAY()和两个按日期排列销售的矩阵。

Date      Store1  Store2  
1/11/2017  800    2000  
2/11/2017  500    3000

和

Date       Store1  Store2  
1/11/2016   400     5000  
2/11/2016   2000    6000

我正在尝试计算与去年相比销售额增加的数量，但我找不到任何可行的方法。

Date       IncreaseStore1 IncreaseStore2  
1/11  
2/11

我发现这个函数可以获得去年的日期，但是它给了我作为文本的日期，我找不到用VBA修复它的方法。

Function PrevYear(XYear As Date) As String

    PrevYear = Format(Format(XYear, "dd/mm") & "/" & Format(XYear, "yyyy") - 1, "dd/mm/yyyy")

End Function

任何帮助都会受到赞赏，因为我完全没有想法

Answer 1

你的问题有点不清楚。这是一个返回日期而不是字符串的函数。

Function PrevYear(XYear As Date) As Date
    PrevYear = DateAdd("YYYY", -1, XYear)
End Function

Answer 2

您想使用VBA的原因是什么？您可以使用以下公式轻松完成此操作：

 =DATE(YEAR(A2)-1,MONTH(A2),DAY(A2))

使用VBA：

DateAdd("YYYY",-1,Range("A2"))

VBA Match功能使用今天的日期搜索去年的参赛作品

2 个答案: