百度360必应搜狗淘宝本站头条
vba高级教程svn连接scheduledtaskmybatis plus结构体数组
当前位置：网站首页 > 编程网 > 正文

excel vba vb.net考勤时间处理通用方法(1)

yuyutoo 2024-10-12 01:35 9 浏览 0 评论

先看上图，这是一张非常普通的考勤统计表，多是从考勤机里面导出来的。所以我们可以清楚看到日期时间格式非常整齐，全无手工做表痕迹。（那些还在用原始手工方法打考勤的，填表、整理、统计估计会喷一口老血。）

现在重点关注一下H列 打卡时间，我们要统计一下每天考勤时间。作为资深考勤管理人员都应该知道，考勤机无论是指纹还是面部识别或者其他智能手机wifi打卡，它所导出的数据并不知道哪个员工哪个时间段是否正常考勤。所以统计时必须要告诉程序，每天考勤时间范围是怎样的。

下面我们来做个演示，假定每天早上考勤时间定在"08:30"和"09:10"之间，起止点时间踩点可算合规。按照我们以前的思维逻辑，我们要先做个小函数来判断一下。这个核心函数在本例子中使用频率最高。

直接上干货代码：

    Function in考勤时间(考勤起点时间 As String, 考勤终点时间 As String, 考勤日期时间 As String)
        Dim s As String＝“”
        Dim 考勤日期 As String = leftstr(考勤日期时间, 10)
        Dim 考勤时间 As String = rightstr(考勤日期时间, 5)
        If 考勤时间 >= 考勤起点时间 And 考勤时间 <= 考勤终点时间 Then
            s = 考勤日期
        End If
        Return s '考勤合规则返回日期，否则返回空串
    End Function

这个小函数简单明了，一看就明白了。比如要处理的考勤日期时间＝“2017-12-04 09:00”

Dim 考勤日期 As String = leftstr(考勤日期时间, 10)，考勤日期取得了最左边10 个字符也就是2017-12-04

Dim 考勤时间 As String = rightstr(考勤日期时间, 5)。考勤时间取得了最右边5个字符也就是09:00

If 考勤时间 >= 考勤起点时间 And 考勤时间 <= 考勤终点时间 Then
            s = 考勤日期
        End If
        这个if用来判断考勤时间是不是比考勤起点时间大，并且比考勤终点时间时间小。

s就是最终结果，考勤合规则返回日期，否则返回空串

下面开始主控程序遍历：

这时为方便演示只遍历了2到40行，把结果输出在I列，如果合规就输出“正常考勤”

升级问题一：如果要统计某个员工哪一天多次考勤情况，怎么办？

欢迎关注，下期继续。

相关推荐

Mysql和Oracle实现序列自增（oracle创建序列的sql）

Mysql和Oracle实现序列自增/*ORACLE设置自增序列oracle本身不支持如mysql的AUTO_INCREMENT自增方式，我们可以用序列加触发器的形式实现，假如有一个表T_WORKM...

关于Oracle数据库12c 新特性总结（oracle数据库19c与12c）

概述今天主要简单介绍一下Oracle12c的一些新特性，仅供参考。参考：http://docs.oracle.com/database/121/NEWFT/chapter12102.htm#NEWFT...

MySQL CREATE TABLE 简单设计模板交流

推荐用MySQL8.0(2018/4/19发布,开发者说同比5.7快2倍)或同类型以上版本....

mysql学习9:创建数据库（mysql5.5创建数据库）

前言：我也是在学习过程中，不对的地方请谅解showdatabases;#查看数据库表createdatabasename...

MySQL面试题-CREATE TABLE AS 与CREATE TABLE LIKE的区别

执行"CREATETABLE新表ASSELECT*FROM原表;"后，新表与原表的字段一致，但主键、索引不会复制到新表，会把原表的表记录复制到新表。...

Nike Dunk High Volt 和 Bright Spruce 预计将于 12 月推出

在街上看到的PandaDunk的超载可能让一些球鞋迷们望而却步，但Dunk的浪潮仍然强劲，看不到尽头。我们看到的很多版本都是为女性和儿童制作的，这种新配色为后者引入了一种令人耳目一新的新选择，而...

美国多功能舰载雷达及美国海军舰载多功能雷达系统技术介绍

多功能雷达AN/SPY-1的特性和技术能力，该雷达已经在美国海军服役了30多年，其修改-AN/SPY-1A、AN/SPY-1B（V）、AN/SPY-1D、AN/SPY-1D（V），以及雷神...

汽车音响怎么玩，安装技术知识（汽车音响怎么玩,安装技术知识视频）

全面分析汽车音响使用或安装技术常识一:主机是大多数人最熟习的音响器材，有关主机的各种性能及规格，也是耳熟能详的事，以下是一些在使用或安装时，比较需要注意的事项：LOUDNESS：几年前的主机，此按...

【推荐】ProAc Response系列扬声器逐个看

有考牌(公认好声音)扬声器之称ProAcTablette小音箱，相信不少音响发烧友都曾经，或者现在依然持有，正当大家逐渐掌握Tablette的摆位设定与器材配搭之后，下一步就会考虑升级至表现更全...

#本站首晒# 漂洋过海来看你 — BLACK&amp;DECKER 百得 BDH2000L无绳吸尘器 开箱

作者：初吻给了烟sco混迹张大妈时日不短了，手没少剁。家里有了汪星人，吸尘器使用频率相当高，偶尔零星打扫用卧式的实在麻烦（汪星人：你这分明是找借口，我掉毛是满屋子都有，铲屎君都是用卧式满屋子吸的，你...

专题|一个品牌一件产品(英国篇)之Quested(罗杰之声)

Quested(罗杰之声)代表产品：Q212FS品牌介绍Quested(罗杰之声)是录音监听领域的传奇品牌，由英国录音师RogerQuested于1985年创立。在成立Quested之前，Roger...

常用半导体中英对照表(建议收藏)（半导体英文术语）

作为一个源自国外的技术，半导体产业涉及许多英文术语。加之从业者很多都有海外经历或习惯于用英文表达相关技术和工艺节点，这就导致许多英文术语翻译成中文后，仍有不少人照应不上或不知如何翻译。为此，我们整理了...

Fyne Audio F502SP 2.5音路低音反射式落地音箱评测

FyneAudio的F500系列，有新成员了！不过，新成员不是新的款式，却是根据原有款式提出特别版。特别版产品在原有型号后标注了SP字样，意思是SpecialProduction。Fyne一共推出...

有哪些免费的内存数据库(In-Memory Database)

以下是一些常见的免费的内存数据库：1.Redis：Redis是一个开源的内存数据库，它支持多种数据结构，如字符串、哈希表、列表、集合和有序集合。Redis提供了快速的读写操作，并且支持持久化数据到磁...

RazorSQL Mac版(SQL数据库查询工具)

RazorSQLMac特别版是一款看似简单实则功能非常出色的SQL数据库查询、编辑、浏览和管理工具。RazorSQLformac特别版可以帮你管理多个数据库，支持主流的30多种数据库，包括Ca...

取消回复欢迎 你 发表评论:

一周热门
最近发表
标签列表