我是用了replace语句。
[ 本帖最后由 月沐庭轩 于 2012-11-15 17:40 编辑 ]
程序代码:
USE 年休假汇总表 SCAN REPLACE 工作年限 WITH f工作年限(工作时间) REPLACE 年休假天数 WITH f年休假天数(工作年限) REPLACE 本年应休 WITH ALLTRIM(STR(VAL(年休假天数)+VAL(上年未休),10,2)) REPLACE 合计 WITH ALLTRIM(STR(VAL(一月)+VAL(二月)+VAL(三月)+VAL(四月)+VAL(五月)+VAL(六月)+VAL(七月)+VAL(八月)+VAL(九月)+VAL(十月)+VAL(十一月)+VAL(十二月),10,2)) REPLACE 年休假剩余 WITH ALLTRIM(STR(VAL(本年应休)-VAL(合计))) ENDSCAN BROWSE FUNCTION f工作年限(工作时间) 当前总月份=YEAR(DATE())*12+MONTH(DATE()) 参加工作总月份=VAL(LEFT(ALLTRIM(m.工作时间),4))*12+VAL(RIGHT(ALLTRIM(m.工作时间),2)) f工作年限=ALLTRIM(STR(INT((当前总月份-参加工作总月份)/12))) RETURN f工作年限 ENDFUNC FUNCTION f年休假天数(工作年限) f年休假天数="" DO CASE CASE VAL(m.工作年限)>=20 f年休假天数="15" CASE VAL(m.工作年限)>=10 f年休假天数="10" CASE VAL(m.工作年限)>=1 f年休假天数="5" ENDCASE RETURN f年休假天数 ENDFUNC
[ 本帖最后由 月沐庭轩 于 2012-11-15 17:40 编辑 ]
坚持学习vfp,QQ:306805680