标题:每天两人值班,如何计算每人值班天数?
只看楼主
王咸美
Rank: 1
等 级:新手上路
帖 子:569
专家分:0
注 册:2018-1-4
结帖率:96.99%
已结贴  问题点数:20 回复次数:10 
每天两人值班,如何计算每人值班天数?
现有下列表格文件,如何计算每人值班天数?并将它写入表文件Zbts.dbf中【字段名为:值班人员 C(10),值班天数 N(4)】请高手赐教,万分感谢!!!
搜索更多相关主题的帖子: 字段 天数 文件 计算 dbf 
2023-04-01 10:58
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:323
帖 子:9621
专家分:26174
注 册:2012-2-5
得分:0 
把表发上来

坚守VFP最后的阵地
2023-04-01 11:07
王咸美
Rank: 1
等 级:新手上路
帖 子:569
专家分:0
注 册:2018-1-4
得分:0 
电脑不在身边,无法上传表文件。假如就这几行数据,可以测试吗?请予指导,谢谢!
2023-04-01 11:40
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:323
帖 子:9621
专家分:26174
注 册:2012-2-5
得分:20 
只弄了5条数据供测试
程序代码:
CREATE CURSOR t1 (值班日期 C(6), 值班人员 C(10))
INSERT INTO t1 VALUES ("3月1日", "张飞、李逵")
INSERT INTO t1 VALUES ("3月2日", "曹操、刘备")
INSERT INTO t1 VALUES ("3月3日", "李逵、刘备")
INSERT INTO t1 VALUES ("3月4日", "孙权、曹操")
INSERT INTO t1 VALUES ("3月5日", "李逵、孙权")
CREATE CURSOR zbts (值班人员 C(10), 值班天数 N(4))
INDEX ON 值班人员 TAG sy
SELECT t1
SCAN 
    FOR ln = 1 TO ALINES(laStr, 值班人员, 1+4, "、")
        IF SEEK(laStr(ln), "zbts", "sy") = .T.
            REPLACE 值班天数 WITH 值班天数 + 1 IN zbts 
        ELSE
            INSERT INTO zbts VALUES (laStr(ln), 1)
        ENDIF 
    ENDFOR 
ENDSCAN
SELECT zbts
DELETE TAG sy 
BROWSE 

结果

坚守VFP最后的阵地
2023-04-01 11:42
王咸美
Rank: 1
等 级:新手上路
帖 子:569
专家分:0
注 册:2018-1-4
得分:0 
@sdta 谢谢!!!
2023-04-01 11:45
wxzd123
Rank: 2
等 级:论坛游民
帖 子:238
专家分:43
注 册:2012-9-6
得分:0 
回复 4楼 sdta
2023-04-01 13:29
schtg
Rank: 11Rank: 11Rank: 11Rank: 11
来 自:https://t.me/pump_upp
等 级:贵宾
威 望:67
帖 子:1355
专家分:2534
注 册:2012-2-29
得分:0 
回复 4楼 sdta
好!
2023-04-01 16:53
sam_jiang
Rank: 8Rank: 8
等 级:贵宾
威 望:10
帖 子:542
专家分:781
注 册:2021-10-13
得分:0 
COUNT ALL FOR "李逵" $ 值班人员 TO ncount
?ncount
2023-04-02 13:58
ybq1014
Rank: 2
等 级:论坛游民
帖 子:13
专家分:16
注 册:2012-12-19
得分:0 
回复 楼主 王咸美
这样的事情,直接在Excel里面完成,没必要编程。
2023-04-17 16:36
ybq1014
Rank: 2
等 级:论坛游民
帖 子:13
专家分:16
注 册:2012-12-19
得分:0 
回复 楼主 王咸美
Excel中countif函数可以完成
2023-04-17 16:37



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-511761-1-1.html




关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.118265 second(s), 10 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved