工作量统计

function gettime(btimes,bumen,renyuan,byref tt)
set conn=CreateObject("ADODB.Connection")
      conn.Open "xxxxxxx"
txtsql="select * from 工作 where datediff(d,’"+cstr(btimes)+"’,工作开始时间)=0"
      txtsql=txtsql+" and 班组=’"+bumen+"’"
      txtsql=txtsql+" and 姓名 like ‘%"+renyuan+"%’"   
txtsql=txtsql+" order by 工作开始时间"
set rs=conn.execute(txtsql)
jobtime=0
jie=0
if not rs.eof then
shi=rs("时长")
    bt1=rs("工作开始时间")
    et1=dateadd("n",shi*60,bt1)
    if hour(bt1)<12 and hour(et1)>12 then
    shi=shi+1
    et1=dateadd("n",shi*60,bt1)
    jie=1
    end if
    bt=bt1
    et=et1
    rs.movenext
end if
if not rs.eof then
while not rs.eof
exbiao=biao
    ‘首先取得第一个工作的开始时间,然后取得第二项工作的开始时间
    ‘比较第一项工作和第二项
    shi=rs("时长")
    bt2=rs("工作开始时间")
    et2=dateadd("n",shi*60,bt2)
    if hour(bt2)<12 and hour(et2)>12 then
    shi=shi+1
    et2=dateadd("n",shi*60,bt2)
    jie=1
    end if
    ‘首先判定第一个工作的结束时间是不是小于第二个工作的开始时间,
    ‘如果是的话,第一个工作为独立工作,可以记录时长
    if datediff("n",et,bt2)>0 then
‘    response.Write(bt&"&nbsp;"&et&"&nbsp;")
‘    response.Write(datediff("n",bt,et)&"</p>")
    jobtime=jobtime+datediff("n",bt,et)
    bt=bt2
    et=et2
    biao=0
    ‘如果第二个工作的开始时间小于第一个工作的开始时间,而第二个工作的结束时间晚于第一个工作的结束时间
    ‘则所求为合集
    elseif datediff("n",et,bt2)=<0 and datediff("n",et,et2)>0 then
‘    response.Write("这里的开始时间"&bt2&"早于上一次的结束时间"&et&"但是结束时间晚于上一次的结束时间"&et2&"</p>")
    et=et2
    biao=1
    ‘如果第二个工作的开始时间小于第一个工作开始时间,
    ‘而第二个工作的结束时间也早于第一个工作的饿结束时间
    ‘则为第一个工作的工作时间
    elseif datediff("n",et,bt2)<0 and datediff("n",et,et2)<0 then
    ‘response.Write("这里的开始时间"&bt2&"早于上一次的结束时间"&et&"但是结束时间也早上一次的结束时间"&et2&"</p>")
    biao=1
    end if
rs.movenext
if rs.eof then
biao=1
end if
wend
if biao=1 then
‘response.Write(bt&"&nbsp;"&et&"&nbsp;")
‘response.Write(datediff("n",bt,et)&"</p>")
jobtime=jobtime+datediff("n",bt,et)
end if
else
    jobtime=jobtime+datediff("n",bt,et)
end if
jobtime=jobtime-60*jie
tt=jobtime
hou=int(jobtime/60)
min=jobtime-60*hou
    if hou<>0 then
gettime=((cstr(hou)+"小时"+cstr(min)+"分钟"))
    else
    gettime=(cstr(min)+"分钟")
    end if
end function

以后所有的工作量都可以统计了。

Advertisements

发布者:supeng

peng.su@hotmail.com

加入对话

1条评论

  1. 深了。我一直惆怅工作这么忙碌,如何写日志,你给了很好的范例。ps:注释写的够详细的啊

留下评论

Fill in your details below or click an icon to log in:

WordPress.com 徽标

You are commenting using your WordPress.com account. Log Out /  更改 )

Google photo

You are commenting using your Google account. Log Out /  更改 )

Twitter picture

You are commenting using your Twitter account. Log Out /  更改 )

Facebook photo

You are commenting using your Facebook account. Log Out /  更改 )

Connecting to %s

%d 博主赞过: