考勤该怎么统计呢 求帮助

zyzy2289

上班时间 8-17 ； 8--8：15 算迟到16：45-17：00 早退   》8：15 算  或 漏打卡 算 异常打卡  《16：45 或漏打卡算 异常打卡  求 考勤汇总公式 谢谢   一天不打卡 算 休息   我想统计出  休息天数   异常打卡次数  请假天数  迟到次数  早退次数  谢谢

sunya_0529

这种格式的数据，用公式已经很为难了，所以帮你写了个自定义函数，如下图所示——



自定义函数的代码如下——

1. Function kqtj(rng As Range, str As String, mth As String)
   
2. Dim c As Range, sbsj As Date, xbsj As Date, arr
   
3. Dim i% '休息天数
   
4. Dim j% '异常打卡次数
   
5. Dim k% '请假天数
   
6. Dim l% '迟到次数
   
7. Dim m% '早退次数
   
8. sbsj = TimeValue("8:00") '上班时间
   
9. xbsj = TimeValue("17:00") '下班时间
   
10. If Not rng Is Nothing Then
    
11.   For Each c In rng
    
12.     If Len(c.Value) > 0 Then
    
13.       arr = Split(c.Value, " ")
    
14.       If CDate(arr(0)) > sbsj And CDate(arr(0)) <= DateAdd("n", 15, sbsj) Then
    
15.         l = l + 1
    
16.       ElseIf CDate(arr(0)) > DateAdd("n", 15, sbsj) Then
    
17.         j = j + 1
    
18.       End If
    
19.       If CDate(arr(UBound(arr) - 1)) < xbsj And CDate(arr(UBound(arr) - 1)) >= DateAdd("n", -15, xbsj) Then
    
20.         m = m + 1
    
21.       ElseIf CDate(arr(UBound(arr) - 1)) < DateAdd("n", -15, xbsj) Then
    
22.         j = j + 1
    
23.       End If
    
24.     Else
    
25.       i = i + 1
    
26.       If Weekday(CDate(mth & "-" & c.Offset(-1, 0)), vbMonday) < 6 Then k = k + 1
    
27.     End If
    
28.   Next
    
29. End If
    
30. Select Case str
    
31.   Case "休息天数"
    
32.     kqtj = i
    
33.   Case "异常打卡次数"
    
34.     kqtj = j
    
35.   Case "请假天数"
    
36.     kqtj = k
    
37.   Case "迟到次数"
    
38.     kqtj = l
    
39.   Case "早退次数"
    
40.     kqtj = m
    
41.   Case Else
    
42.     kqtj = "#VAL"
    
43. End Select
    
44. End Function

复制代码

附件如下——

我是来讨说法的

http://club.excelhome.net/forum. ... 6orderby%3Ddateline