?? 復件 frm_kaoqihesuan.frm
字號:
Else
If iEarlyT > tZaoTui Then
If b11 Then
gs_SJ = Round(DateDiff("n", Dtmp, adoprimaryRS4.Fields("cdatetime").Value) / 60, 1)
Else
gs_SJ = Round(DateDiff("n", bgntm1, adoprimaryRS4.Fields("cdatetime").Value) / 60, 1)
End If
Else
If b11 Then
gs_SJ = Round(DateDiff("n", Dtmp, endtm1) / 60, 1)
Else
gs_SJ = Round(DateDiff("n", bgntm1, endtm1) / 60, 1)
End If
End If
gs_ZG = Round(DateDiff("n", Dtmp, adoprimaryRS4.Fields("cdatetime").Value) / 60, 1)
End If
by = True
''''2
''''3
ElseIf adoprimaryRS4.Fields("cdatetime").Value >= endtm1 And adoprimaryRS4.Fields("cdatetime").Value < bgntm2 Then
adoPrimaryRS5.Fields("wktmend1").Value = endtm1 ''''下班時間
adoPrimaryRS5.Fields("drawtmend1").Value = adoprimaryRS4.Fields("cdatetime").Value '''下班刷卡
adoPrimaryRS5.Fields("earlytime1").Value = 0 '''' 早退時間
'adoPrimaryRS5.Fields("wktmend1dec").Value = "早退"
'ElseIf adoPrimaryRS4.Fields("cdatetime").Value > endtm1 Then
If bw1 Then
gs_SJ = gs_SJ + 0
gs_ZG = gs_ZG + 0
Else
If b11 Then
gs_SJ = Round(DateDiff("n", Dtmp, endtm1) / 60, 1)
Else
gs_SJ = Round(DateDiff("n", bgntm1, endtm1) / 60, 1)
End If
gs_ZG = Round(DateDiff("n", Dtmp, adoprimaryRS4.Fields("cdatetime").Value) / 60, 1)
End If
by = True
ElseIf adoprimaryRS4.Fields("cdatetime").Value > bgntm2 Then
tmpMemo = tmpMemo & "無刷卡2；"
n = n + 1
'adoprimaryRS4.MovePrevious
b2 = True
GoTo GoTo1
End If
Else
adoPrimaryRS5.Fields("wktmend1").Value = endtm1 ''''下班時間
adoPrimaryRS5.Fields("drawtmend1").Value = adoprimaryRS4.Fields("cdatetime").Value ''' "00:00:00" '''下班刷卡
adoPrimaryRS5.Fields("earlytime1").Value = 0 '''' 早退時間
gs_SJ = gs_SJ + 0
gs_ZG = gs_ZG + 0
b2 = False
by = True
End If
'''''''''''''\\\\\\\\\\\\\\\******************/////////////////////////
'''''''''''''\\\\\\\\\\\\\\\******************/////////////////////////
Case 3
'If .Fields("emplyid").Value = "00101073" Then
If adoprimaryRS4.Fields("cdatetime").Value < DateAdd("n", 5, endtm1) Then
'''If adoprimaryRS4.Fields("cdatetime").Value < endtm1 Then
n = n - 2
GoTo Goto2
End If
'End If
'''''''''''''''''''''*****************************************
If adoprimaryRS4.Fields("cdatetime").Value >= DateAdd("n", -60, endtm2) Then
tmpMemo = tmpMemo & "無刷卡3；"
n = 4
GoTo GoTo1
End If
'''''''''''''''''''''*****************************************
If adoprimaryRS4.Fields("cdatetime").Value <= bgntm2 Then
''''1
adoPrimaryRS5.Fields("wktmbg2").Value = bgntm2 '''' 上班時間
adoPrimaryRS5.Fields("drawtmbg2").Value = adoprimaryRS4.Fields("cdatetime").Value ''''上班刷卡
adoPrimaryRS5.Fields("latertime2").Value = 0 '''' 遲到時間
'adoPrimaryRS5.Fields("wktmbg2dec").Value = 上班描述
b3 = True
b33 = False ''''遲到
bw2 = False
''''2
''''3
ElseIf adoprimaryRS4.Fields("cdatetime").Value > bgntm2 And adoprimaryRS4.Fields("cdatetime").Value < endtm2 Then
adoPrimaryRS5.Fields("wktmbg2").Value = bgntm2 '''' 上班時間
adoPrimaryRS5.Fields("drawtmbg2").Value = adoprimaryRS4.Fields("cdatetime").Value ''''上班刷卡
iLaterT = DateDiff("n", bgntm2, adoprimaryRS4.Fields("cdatetime").Value) '''' 遲到時間
If iLaterT > tChiDao Then
adoPrimaryRS5.Fields("latertime2").Value = iLaterT '''' DateDiff("n", bgntm2, adoprimaryRS4.Fields("cdatetime").Value) '''' 遲到時間
adoPrimaryRS5.Fields("wktmbg2dec").Value = "遲到"
b3 = True
b33 = True ''''遲到
Else
adoPrimaryRS5.Fields("latertime2").Value = 0 '''' 遲到時間
b3 = True
b33 = False ''''遲到
End If
bw2 = False
''ElseIf adoprimaryRS4.Fields("cdatetime").Value > endtm2 Then
''adoPrimaryRS5.Fields("wktmbg2").Value = bgntm2 '''' 上班時間
''adoPrimaryRS5.Fields("drawtmbg2").Value = "00:00:00" ''''上班刷卡
''adoPrimaryRS5.Fields("latertime2").Value = 0 '''' 遲到時間
''adoPrimaryRS5.Fields("wktmbg2dec").Value = "無刷卡"
''b33 = False ''''遲到
ElseIf adoprimaryRS4.Fields("cdatetime").Value > endtm2 Then
tmpMemo = tmpMemo & "無刷卡3；"
n = n + 1
'adoprimaryRS4.MovePrevious
b3 = True
bw2 = True
tmpMemo = tmpMemo & "無刷卡2；"
GoTo GoTo1
'GoTo Goto2
'n = n + 1
End If
'''''''''''''\\\\\\\\\\\\\\\******************/////////////////////////
'''''''''''''\\\\\\\\\\\\\\\******************/////////////////////////
Case 4
If adoprimaryRS4.Fields("cdatetime").Value < bgntm22 Then
'If adoprimaryRS4.Fields("cdatetime").Value < bgntm2 Then
n = n - 2
GoTo Goto2
End If
If b3 Then
If adoprimaryRS4.Fields("cdatetime").Value < endtm2 Then
''''1
adoPrimaryRS5.Fields("wktmend2").Value = endtm2 ''''下班時間
adoPrimaryRS5.Fields("drawtmend2").Value = adoprimaryRS4.Fields("cdatetime").Value '''下班刷卡
iEarlyT = DateDiff("n", adoprimaryRS4.Fields("cdatetime").Value, endtm2) '''' 早退時間
If iEarlyT > tZaoTui Then
adoPrimaryRS5.Fields("earlytime2").Value = iEarlyT ''''DateDiff("n", adoprimaryRS4.Fields("cdatetime").Value, endtm2) '''' 早退時間
adoPrimaryRS5.Fields("wktmend2dec").Value = "早退"
Else
adoPrimaryRS5.Fields("earlytime2").Value = 0
End If
If bw2 Then
gs_SJ = gs_SJ + 0
gs_ZG = gs_ZG + 0
Else
''''早退
If iEarlyT > tZaoTui Then
If b33 Then ''''早退 而且 遲到
gs_SJ = gs_SJ + Round(DateDiff("n", Dtmp, adoprimaryRS4.Fields("cdatetime").Value) / 60, 1)
Else
gs_SJ = gs_SJ + Round(DateDiff("n", bgntm2, adoprimaryRS4.Fields("cdatetime").Value) / 60, 1)
End If
Else
If b33 Then
gs_SJ = gs_SJ + Round(DateDiff("n", Dtmp, endtm2) / 60, 1)
Else
gs_SJ = gs_SJ + Round(DateDiff("n", bgntm2, endtm2) / 60, 1)
End If
End If
gs_ZG = gs_ZG + Round(DateDiff("n", Dtmp, adoprimaryRS4.Fields("cdatetime").Value) / 60, 1)
End If
''''2
''''3
ElseIf adoprimaryRS4.Fields("cdatetime").Value >= endtm2 Then
adoPrimaryRS5.Fields("wktmend2").Value = endtm2 ''''下班時間
adoPrimaryRS5.Fields("drawtmend2").Value = adoprimaryRS4.Fields("cdatetime").Value '''下班刷卡
adoPrimaryRS5.Fields("earlytime2").Value = 0 '''' 早退時間
'adoPrimaryRS5.Fields("wktmend1dec").Value = "早退"
'ElseIf adoPrimaryRS4.Fields("cdatetime").Value > endtm1 Then
If bw2 Then
gs_SJ = gs_SJ + 0
gs_ZG = gs_ZG + 0
Else
If b33 Then
gs_SJ = gs_SJ + Round(DateDiff("n", Dtmp, endtm2) / 60, 1)
Else
gs_SJ = gs_SJ + Round(DateDiff("n", bgntm2, endtm2) / 60, 1)
End If
gs_ZG = gs_ZG + Round(DateDiff("n", Dtmp, adoprimaryRS4.Fields("cdatetime").Value) / 60, 1)
End If
End If
Else ''''無下午上班刷卡；
If b1 Then
If bw23 Then ''''早晚兩次刷卡
If adoprimaryRS4.Fields("cdatetime").Value < endtm2 Then '''' ''''早退
''''1
adoPrimaryRS5.Fields("wktmend2").Value = endtm2 ''''下班時間
adoPrimaryRS5.Fields("drawtmend2").Value = adoprimaryRS4.Fields("cdatetime").Value '''下班刷卡
iEarlyT = DateDiff("n", adoprimaryRS4.Fields("cdatetime").Value, endtm2) '''' 早退時間
If iEarlyT > tZaoTui Then
adoPrimaryRS5.Fields("earlytime2").Value = iEarlyT ''''DateDiff("n", adoprimaryRS4.Fields("cdatetime").Value, endtm2) '''' 早退時間
adoPrimaryRS5.Fields("wktmend2dec").Value = "早退"
Else
adoPrimaryRS5.Fields("earlytime2").Value = 0
End If
''''早退
If iEarlyT > tZaoTui Then
If b11 Then ''''早退 而且 遲到
gs_SJ = gs_SJ + Round(DateDiff("n", Dtmp, adoprimaryRS4.Fields("cdatetime").Value) / 60, 1) - Round(DateDiff("n", endtm1, bgntm2) / 60, 1)
Else
gs_SJ = gs_SJ + Round(DateDiff("n", bgntm1, adoprimaryRS4.Fields("cdatetime").Value) / 60, 1) - Round(DateDiff("n", endtm1, bgntm2) / 60, 1)
End If
Else
If b11 Then
gs_SJ = gs_SJ + Round(DateDiff("n", Dtmp, endtm2) / 60, 1) - Round(DateDiff("n", endtm1, bgntm2) / 60, 1)
Else
gs_SJ = gs_SJ + Round(DateDiff("n", bgntm1, endtm2) / 60, 1) - Round(DateDiff("n", endtm1, bgntm2) / 60, 1)
End If
End If
gs_ZG = gs_ZG + Round(DateDiff("n", Dtmp, adoprimaryRS4.Fields("cdatetime").Value) / 60, 1)
''''2
''''3
ElseIf adoprimaryRS4.Fields("cdatetime").Value >= endtm2 Then
adoPrimaryRS5.Fields("wktmend2").Value = endtm2 ''''下班時間
adoPrimaryRS5.Fields("drawtme?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -