<%
'返回新時間
function getnewtime(oldtime,addtime)
	dim hourvalue,minutevalue,newminute,newtime
	hourvalue=hour(oldtime)
	minutevalue=minute(oldtime)+addtime
	hourvalue=hourvalue+fix(minutevalue/60)
	newminute=minutevalue mod 60
	newtime=timeserial(hourvalue,newminute,0)
	getnewtime=newtime
end function
'讀取用戶查看所有部門的考勤資料權限
function lookkqpopedom()
	set conn=opendb("oabusy","conn","accessdsn")
	set rs=server.createobject("adodb.recordset")
	sql="select * from userinf where username='"&oabusyusername&"'"
	rs.open sql,conn,1
	allow_look_all_kq_info=rs("allow_look_all_kq_info")
	conn.close
	set conn=nothing
	set rs=nothing
	lookkqpopedom=allow_look_all_kq_info
end function
'判斷是遲到還是早退
'statusflag=0:表示是否遲到
'statusflag=1:表示是否早退
function verdictuserstatus(time1,time2,number,statusflag)
	dim returnstr	
	if statusflag=0 and time2>getnewtime(time1,number) then
		returnstr="遲到"
	elseif statusflag=1 and time2<getnewtime(time1,-number) then
		returnstr="早退"
	else
		returnstr=""
	end if
	verdictuserstatus=returnstr
end function
'處理上午上班時間
sub disposeamcometime()
	if rs1.eof or rs1.bof then
		getamcometime="<font color='#ee0000'>未考勤</font>"
		getamgotime="00:00:00"
		getamexplain="（上午上班<font color='#dd0000'>未到</font>?。?quot;
		amnocomesums=amnocomesums+1
	elseif rs1("comedate")=#0:00:00# or verdictuserstatus(amcometime,rs1("comedate"),comedelaytime,0)<>"" then
		getamcometime="<font color='#dd0000'>"&rs1("comedate")&"</font>"
		getamgotime="00:00:00"
		getamexplain="（上午上班<font color='#dd0000'>遲到</font>！）"
		if rs1("explain1")<>"" then
			getamexplain=getamexplain&"<br>（遲到原因："&rs1("explain1")&"）"
		end if
		amlatesums=amlatesums+1
	else
		getamcometime=rs1("comedate")
		getamgotime="00:00:00"
		getamexplain=""
	end if
end sub
'處理上午下班時間
sub disposeamgotime()
	if rs1.eof or rs1.bof then
		getamgotime="<font color='#dd0000'>未考勤</font>"
	elseif rs1("leavedate")=#0:00:00# then
		getamgotime="<font color='#dd0000'>未考勤</font>"
		getamexplain=getamexplain&"（上午下班<font color='#dd0000'>未考勤</font>?。?quot;
	elseif verdictuserstatus(amgotime,rs1("leavedate"),goaheadtime,1)<>"" then
		getamgotime="<font color='#dd0000'>"&rs1("leavedate")&"</font>"
		getamexplain=getamexplain&"（上午下班<font color='#dd0000'>早退</font>?。?quot;
		if rs1("explain2")<>"" then
			getamexplain=getamexplain&"<br>（遲到原因："&rs1("explain2")&"）"
		end if
		amleaveearlysums=amleaveearlysums+1
	else
		getamgotime=rs1("leavedate")
		if rs1("explain2")<>"" then
			getamexplain=getamexplain&"（上午下班事件："&rs1("explain2")&"）"
		end if
	end if
end sub
'處理下午上班時間
sub disposepmcometime()
	if rs2.eof or rs2.bof then
		getpmcometime="<font color='#dd0000'>未考勤</font>"
		getpmgotime="00:00:00"
		getpmexplain="（下午上班<font color='#dd0000'>未到</font>?。?quot;
		pmnocomesums=pmnocomesums+1
	elseif rs2("comedate")=#0:00:00# or verdictuserstatus(pmcometime,rs2("comedate"),comedelaytime,0)<>"" then
		getpmcometime="<font color='#dd0000'>"&rs2("comedate")&"</font>"
		getpmgotime="00:00:00"
		getpmexplain="（下午上班<font color='#dd0000'>遲到</font>?。?lt;br>"
		if rs2("explain1")<>"" then
			getpmexplain=getpmexplain&"<br>（遲到原因："&rs2("explain1")&"）"
		end if
		pmlatesums=pmlatesums+1
	else
		getpmcometime=rs2("comedate")
		getpmgotime="00:00:00"
		getpmexplain=""
	end if
end sub
'處理下午下班時間
sub disposepmgotime()
	if rs2.eof or rs2.bof then
		getpmgotime="<font color='#dd0000'>未考勤</font>"
	elseif rs2("leavedate")=#0:00:00# then
		getpmgotime="<font color='#dd0000'>未考勤</font>"
		getpmexplain=getpmexplain&"（下午下班<font color='#dd0000'>未考勤</font>?。?quot;
	elseif verdictuserstatus(pmgotime,rs2("leavedate"),goaheadtime,1)<>"" then
		getpmgotime="<font color='#dd0000'>"&rs2("leavedate")&"</font>"
		getpmexplain=getpmexplain&"（下午下班<font color='#dd0000'>早退</font>?。?lt;br>"
		if rs2("explain2")<>"" then
			getpmexplain=getpmexplain&"<br>（早退原因："&rs2("explain2")&"）"
		end if
		pmleaveearlysums=pmleaveearlysums+1
	else
		getpmgotime=rs2("leavedate")
		if rs2("explain2")<>"" then
			getpmexplain=getpmexplain&"（下午下班事件："&rs2("explain2")&"）"
		end if
	end if
end sub
%>