WorkDay(DateSerial(Year(Date), _ Month(Date), 1), 0)) End Function Public Sub TestMe() MsgBox FirstWorkingDayOfMonth(Date) End Sub.
確定! 回上一頁