
员工考勤表(VBA计算工作日)
5星
- 浏览量: 0
- 大小:None
- 文件类型:None
简介:
本工具利用VBA编写,专为简化员工考勤记录与统计设计。它能自动计算并展示每周的工作日出勤情况,提升人事管理效率。
VBA代码如下:数据来源于“国务院办公厅关于2020年部分节假日安排的通知”。使用函数workDay(YEAR(TODAY())&-&MONTH(TODAY())&-&B3)判断指定日期是否为工作日。
Function workDay(rq)
Dim cel As Range
If Weekday(rq) = 1 Or Weekday(rq) = 7 Then
temp = 休
For Each cel In Range(节假日表!B2:B17)
a = DateDiff(d, cel.Value, rq)
If a = 0 Then
temp = ○
Exit For
End If
Next
Else
temp = ○
For Each cel In Range(节假日表!A2:A37)
a = DateDiff(d, cel.Value, rq)
If a = 0 Then
temp = 休
Exit For
End If
Next
End If
workDay = temp
End Function
全部评论 (0)
还没有任何评论哟~


