如何在VBA中从单元格中获取当前日期和给定日期之间的差异？

Question

我是VBA的新手。我想从用户那里得到当前日期和给定日期之间的差异。我怎么解决这个问题？ 当我点击计算点按钮时，它会显示#NAME？

这是我的代码：

Private Sub Sum_Click()
Dim LastRow As Long

LastRow = Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
Range("F6:F" & LastRow).Formula = "=DateDiff(""y"", Now, c6)"
End Sub

Answer 1

Range("F6:F" & LastRow).Formula = "=Text(Now()-C6, "y")"应该这样做。

有关其他格式选项，请参阅text function。

特别是：

Answer 2

由于您需要多年的差异，您可以使用DateDif

scala.collection.immutable.Map<String, String> immutableMap = new scala.collection.immutable.HashMap<String,String>().empty();
for (Map.Entry<String, String> entry : session.entrySet()) {
  immutableMap = immutableMap.$plus(new Tuple2<>(entry.getKey(), entry.getValue()));
}
play.api.mvc.Session newSession = new play.api.mvc.Session(immutableMap);