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

【问题标题】：How to return a date value using a Public Function如何使用公共函数返回日期值
【发布时间】：2017-07-25 08:25:23
【问题描述】：

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

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

【问题讨论】：

标签： excel date vba

【解决方案1】：

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

无论如何，您并不需要额外的变量MaxDate，也不需要Activate“数据”工作表。

将您的 Function 代码更改为：

Public Function RecentDate() As Date

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

End Function

【讨论】：