注意：本例中取得月份天数的函数，2月份闰年的判断有误，函数应改为：

'求某月天数Function ts(myday As Date) As Byte ts = DateSerial(Year(myday), Month(myday) + 1, Day(myday)) - myday End Function