每天两人值班,如何计算每人值班天数?
现有下列表格文件,如何计算每人值班天数?并将它写入表文件Zbts.dbf中【字段名为:值班人员 C(10),值班天数 N(4)】请高手赐教,万分感谢!!!
2023-04-01 10:58
2023-04-01 11:07
2023-04-01 11:40
程序代码: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

2023-04-01 11:42
2023-04-01 11:45
2023-04-01 13:29
2023-04-01 16:53
2023-04-02 13:58
2023-04-17 16:36
2023-04-17 16:37