📄 frm_kaoqihesuan.frm
字号:
adoPrimaryRS5.Fields("latertime1").Value = 0 '''' 迟到时间
adoPrimaryRS5.Fields("wktmbg1dec").Value = "无刷卡"
b1 = False
b11 = False
bw1 = True
tmpMemo = tmpMemo & "无刷卡1；"
n = n + 1
GoTo GoTo1
End If
If b1 Then t1 = adoprimaryRS4.Fields("cdatetime").Value
'''''''''''''\\\\\\\\\\\\\\\******************/////////////////////////
'''''''''''''\\\\\\\\\\\\\\\******************/////////////////////////
Case 2
gs_SJs = 0
gs_ZGs = 0
gs_SJ = 0
gs_ZG = 0
If adoprimaryRS4.Fields("cdatetime").Value < bgntm11 Then
'n = n - 1
'GoTo GoTo1 '''Goto2
n = n - 2
adoprimaryRS4.MovePrevious
GoTo Goto2
End If
'''''''''''''''''''''*****************************************
If adoprimaryRS4.Fields("cdatetime").Value >= endtm2 Then
'If adoprimaryRS4.Fields("cdatetime").Value >= DateAdd("n", -60, endtm2) Then
tmpMemo = tmpMemo & "无刷卡2、3；"
bw23 = True
n = 4
GoTo GoTo1
End If
'''''''''''''''''''''*****************************************
'''''''''''''''''''''*****************************************
If adoprimaryRS4.Fields("cdatetime").Value >= DateAdd("n", 50, endtm1) Then
'If adoprimaryRS4.Fields("cdatetime").Value >= DateAdd("n", 30, endtm1) Then
tmpMemo = tmpMemo & "无刷卡2；"
bw2 = True
n = 3
GoTo GoTo1
End If
'''''''''''''''''''''*****************************************
If b1 Then
If adoprimaryRS4.Fields("cdatetime").Value < endtm1 Then '''' 早退
''''1
adoPrimaryRS5.Fields("wktmend1").Value = endtm1 ''''下班时间
adoPrimaryRS5.Fields("drawtmend1").Value = adoprimaryRS4.Fields("cdatetime").Value '''下班刷卡
iEarlyT = DateDiff("n", adoprimaryRS4.Fields("cdatetime").Value, endtm1) '''' 早退时间
If iEarlyT > tZaoTui Then
adoPrimaryRS5.Fields("earlytime1").Value = iEarlyT ''''DateDiff("n", adoprimaryRS4.Fields("cdatetime").Value, endtm1) '''' 早退时间
adoPrimaryRS5.Fields("wktmend1dec").Value = "早退"
Else
adoPrimaryRS5.Fields("earlytime1").Value = 0
End If
If bw1 Then
gs_SJ = gs_SJ + 0
gs_ZG = gs_ZG + 0
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
If b1 Then
'gs_ZG = Round(DateDiff("n", Dtmp, adoprimaryRS4.Fields("cdatetime").Value) / 60, 1)
gs_ZG = Round(DateDiff("n", t1, adoprimaryRS4.Fields("cdatetime").Value) / 60, 1)
End If
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
gs_SJs = gs_SJ
'gs_ZGs = gs_ZG
'''''下午上班已打卡
If b2 Then t2 = adoprimaryRS4.Fields("cdatetime").Value
'''''''''''''\\\\\\\\\\\\\\\******************/////////////////////////
'''''''''''''\\\\\\\\\\\\\\\******************/////////////////////////
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
adoPrimaryRS5.Fields("earlytime1").Value = 0 '''iEarlyT ''''DateDiff("n", adoprimaryRS4.Fields("cdatetime").Value, endtm1) '''' 早退时间
adoPrimaryRS5.Fields("wktmend1dec").Value = "" '''"早退"
'n = n - 1
'GoTo GoTo1 '''Goto2
n = n - 2
'''adoprimaryRS4.MovePrevious
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
'''''下午上班已打卡
If b3 Then t3 = adoprimaryRS4.Fields("cdatetime").Value
'''''''''''''\\\\\\\\\\\\\\\******************/////////////////////////
'''''''''''''\\\\\\\\\\\\\\\******************/////////////////////////
Case 4
b444 = False
If adoprimaryRS4.Fields("cdatetime").Value < bgntm22 Then
'If adoprimaryRS4.Fields("cdatetime").Value < bgntm2 Then
'n = n - 2
n = n - 1
GoTo GoTo1 ''''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 = "早退"
b444 = True
t444 = adoprimaryRS4.Fields("cdatetime").Value
Else
adoPrimaryRS5.Fields("earlytime2").Value = 0
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -