asp+access报表按输入表单的时间计算其他字段的方法

数据库中有workin,workout,dept字段,是进厂时间,辞职时间和部门名称,时间格式为短时间格式:显示2007-5-24在一网页中设置表单select,有用户选择部门和年,月,deptselect,vyear,vmonth在另一网页中想根据用户提交的部门和年,月数据进行计算上月末人数,本月末人数,增加人数,辞职人数,表单提交的时间数据不是时间格式,不知道怎么去转化,而且也不知道用时间函数去比较时间的大小,来完成在某个月份中人员的变动,其中定员人数是固定人数,<table width="984" height="261" border="1"> <tr> <td width="22" rowspan="3">部门</td> <td width="22" rowspan="3">定员人数</td> <td width="22" rowspan="3">上月末人数</td> <td width="22" rowspan="3">本月末人数</td> <td colspan="5"><div align="center">增加人员</div></td> <td colspan="6"><div align="center">减少人员</div></td> </tr> <tr> <td width="22"><div align="center"> <p>31岁以下</p> <td width="22"><div align="center">辞退</div></td> <td width="22"><div align="center">辞职</div></td> <td width="22"><div align="center">终止解除合同</div></td> <td width="22"><div align="center">调出</div></td> <td width="22"><div align="center">其他</div></td> </tr> <% dim i deptselect=request("deptselect") DbPath = SERVER.MapPath("manage.mdb") Set conn = Server.CreateObject("ADODB.Connection") conn.open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DbPath set rs=server.createobject("adodb.recordset") sql="select * from user where dept=✀"&deptselect&"✀" rs.open sql,conn do until rs.eofrs.movenextloop %> <tr> <td height="49"><%response.write(request("deptselect"))%></td> <td> </td> <td> </td> <td> </td> <td> </td> <td><div align="center"><%=i%></td> <td><div align="center"></div></td> <td><div align="center"></div></td> <td><div align="center"></div></td> <td><div align="center"></div></td> <td><div align="center"></div></td> <td><div align="center"></div></td> <td><div align="center"></div></td> <td><div align="center"></div></td> <td><div align="center"></div></td> <td><div align="center"></div></td> <td><div align="center"></div></td> <td><div align="center"></div></td> <td><div align="center"></div></td> <td><div align="center"></div></td> <td><div align="center"></div></td> <td><div align="center"></div></td> </tr> <% rs.close set rs=nothing cn.close set cn=nothing %> </table>急盼!!!!!!!!!!!!!!!!!!!!!!