如何应用Cdate()函数将字符串转换为日期数据类型

  在开发企业办公自动化管理系统时，需要员工进行上下班登记。在进行登记时，就要对员工登记的具体时间进行相应的判断。判断登记的时间是否符合企业上下班所规定的时间。例如，本实例在进行上下班登记信息的添加时，多次应用CDate()函数将获取到的字符串转换为日期数据类型。该函数的语法如下：
    CDate(date)

    参数说明
    date：参数是任意有效的日期表达式。

    运行结果如图6.5所示。

图6.5  应用Cdate()函数将字符串转换为日期数据类型

    通过以下代码完成上下班登记信息的添加过程。代码如下：
    <meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
    <!--#include file="conn/conn.asp"-->
    <%
    if request.Form("name1")<>"" then
    name1=request.Form("name1")
    department=request.Form("department")
    enroltype=request.Form("enroltype")
    enrolremark=request.Form("enrolremark")
    ss=now()
    '获取登记类型
    select case enroltype
           case "上班登记"
           '应用cdate函数将字符串转换为日期数据类型
           ee=cdate(date()&" 08:20:00")
           if ee-ss>=0 then
               state1="正常"
           else
               state1="迟到"
           end if
            sql="insert into Tab_onduty(name1,department,enroltype,enrolremark,definetime,enroltime,state) values('"&name1& "','"&department&"','"&enroltype&"','"&enrolremark&"','"&ee&"','"&ss&"','"&state1&"')"
            conn.execute(sql)
            case "下班登记"
            '应用cdate函数将字符串转换为日期数据类型
            ee=cdate(date()&" 17:10:00")
            ee1=cdate(date()&" 20:30:00")
           if ee-ss<=0 and ee1-ss<=0 then
           state1="加班"
           else if ee-ss<=0 and ee1-ss>0 then
               state1="正常" #p#分页标题#e#
           else
               state1="早退"
            end if
            end if     
                sql="insert into Tab_onduty(name1,department,enroltype,enrolremark,definetime,enroltime,state) values('" &name1&" ','"&department&"','"&enroltype&"','"&enrolremark&"','"&ee&"','"&ss&"','"&state1&"')"
            conn.execute(sql)
    end select
    %>
    <script language="javascript">
    alert("登记信息添加成功！");
    opener.location.reload();
    window.close();
    </script>
    <%end if%>