Sub Day20_2() '取得該月有幾天'方式一st = Year(Date) - 1 st = st & "-12-31" m = Month(Date) d = DateAdd("m", m, DateValue(st)) d = Day(d) Debug.
確定! 回上一頁