如何使用公共函数返回日期值

Question

我想使用一个函数来返回一系列日期中的最新日期。

Public Function RecentDate() As Date

Dim MaxDate As Date
Sheets("Data").Activate
MaxDate = Application.WorksheetFunction.Max(Columns("A"))

End Function

但是，当我在sub中使用此函数时，我得到：00：00：00。我做错了什么？

Sub ShowDate()

MsgBox (RecentDate())

End Sub

Answer 1

您正在呼叫Function RecentDate，但您从未将RecentDate的值设置为MaxDate的值。

无论如何，您不需要额外的可兑换MaxDate，而且不需要Activate＆＃34;数据＆＃34;工作表。

将您的Function代码更改为：

Public Function RecentDate() As Date

RecentDate = Application.WorksheetFunction.Max(Sheets("Data").Columns("A"))

End Function