出勤日期分解转换

正    文:

原表为：   姓名  出海日期    返回日期

转换成：姓名 合计出勤天数   03年1月出勤天数  03年2月出勤天数......

示例下载:

点击浏览该文件

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

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