Public Function GetFormatDate(DateAndTime, para)On Error Resume NextDim y, m, d, h, mi, s, strDateTimeGetFormatDate = DateAndTimeIf Not IsNumeric(para) Then Exit FunctionIf Not IsDate(DateAndTime) Then Exit Functiony = CStr(Year(DateAndTime))m = CStr…