如何在Excel中找到今天和另一个日期之间的差异？

Question

我正在尝试制作一个功能，告诉我今天和另一个约会之间的区别。如果该日期距离现在少于一个月，则显示TEXT1，如果距离现在超过一个月，则显示TEXT2。此外，如果它显示TEXT1，它还应该使单元格成为某种颜色。

Answer 1

您可以创建自己的UDF（用户定义函数）来实现上述的第一部分。不幸的是，除了返回值之外，UDF不能改变单元格。将以下代码放入工作簿中的模块中，以使其工作。

          Public Function DateCompare(EvalDate As Date) As String
            Dim cval As Integer

            cval = EvalDate - Date

            Select Case cval
                Case Is <= 30
                    DateCompare = "TEXT 1"
                Case Is > 30
                    DateCompare = "TEXT 2"
            End Select

         End Function