VBA匹配function使用今天的datesearch去年的条目

所以说我得到今天的date=TODAY()和两个matrix与date排列的销售。

 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 

我试图计算与去年相比有多less销售额增加，但我找不到任何有效的方法。

 Date IncreaseStore1 IncreaseStore2 1/11 2/11 

我发现这个函数得到去年的date，但它给了我作为文本的date，我无法find一种方法来解决与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

你的问题有点不清楚。 这是一个返回date而不是string的函数。

 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"))