itaxcomp.prg

课程设计时做的一个工资管理系统。数据库编程的典型例子。值得收藏。

*——“ITaxComp”函数
*——功能：根据个人所得税率表和系统信息表计算个
*          个人所得税额
*——参数：nNum，月收入总额
*          nBeg，个人所得税起征点，如果该参数为-1
*				 则使用“SysInfo”表的设置
*——返回值：个人所得税额
FUNCTION ITaxComp(nNum, nBeg)
	*——如果不指定个人所得税起征点
	IF nBeg = -1
		*——获取免税工资
		noTax = 0
		*——如果表“SysInfo”没有打开
		IF !Used("SysInfo")
			*——打开表
			USE SysInfo
			SELECT SysInfo
			*——获取个税起征点
			noTax = SysInfo.个税起征点
			USE
		ENDIF
		*——减去不用计税部分
		nNum = nNum - noTax
	ELSE
		nNum = nNum - nBeg
	ENDIF
	*——如果工资未到起征点
	IF nNum < 0
		RETURN 0
	ENDIF
	*——如果没有打开“个人所得税率”表
	IF !Used("TaxRate")
		USE TaxRate
	ENDIF
	*——查找工资级别
	SELECT TaxRate
	LOCATE FOR nNum > 工资下限 .AND. nNum <= 工资上限
	IF FOUND()
		*——如果找到，计算税收
		ITaxNum = nNum * 所得税率 * 0.01 - 速算扣除数
	ELSE
		*——如果未找到，为-1
		ITaxNum = -1
	ENDIF
	*——返回值
	RETURN ITaxNum
ENDFUNC