penalcomp.prg

来自「BAS--图书库存 Visual FoxPro 6.0」· PRG 代码 · 共 27 行

*——函数PenalComp
*——作用：计算过期图书的过期罚款
*——参数：nDay：图书过期的天数
*——返回值：应该交纳的罚款
FUNCTION PenalComp(nDay)
	*——打开“系统设置表”
	IF !USED("SYSSet")
		USE Data/SYSSet
	ENDIF
	SELECT SYSSet
	GO TOP
	*——如果“系统设置表”为空
	*——则使用内置的罚款率，否则使用该表中的设置
	IF .NOT. EOF() .AND. BOF()
		vBef = 七天之内
		vAft = 七天之后
	ELSE
		vBef = 0.1
		vAft = 0.2
	ENDIF
	*——计算并返回罚款金额
	IF nDay <= 7
		RETURN vBef * nDay
	ELSE
		RETURN vAft * (nDay - 7) + nBef * y
	ENDIF
ENDFUNC