【Access自定义函数】GetMaxDate--获取最大日期值

时　间:2021-12-12 07:43:40
作　者:某.强人   ID：73257  城市：长沙
摘　要:分享一个关于获取最大日期值的自定义函数。
正　文:

一、学友问题描述：

      请问，在窗体中如何在获取一组日期中的最大值呢？

二、解决方法：

      定义一个自定义函数即可快速实现：

Public Function GetMaxDate(A As Date, B As Date, Optional C As Date, Optional D As Date, Optional E As Date) As Date
'请至少输入两个日期
GetMaxDate = IIf(A > B, A, B)
        GetMaxDate = IIf(GetMaxDate > C, GetMaxDate, C)
        GetMaxDate = IIf(GetMaxDate > D, GetMaxDate, D)
        GetMaxDate = IIf(GetMaxDate > E, GetMaxDate, E)
End Function

演示图：