一、学友问题描述：

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

二、解决方法：

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

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

演示图：