文件名称：税率计算delphi代码
文件大小：192KB
文件格式：7Z
更新时间：2012-07-17 08:28:27
税率计算 delphi 代码
写给老婆用的计算器，含代码 mmo1.Text := '不需要缴税' ; if spe1.Value < 2000 then exit else i:= spe1.Value - 2000; if i<=500 then m:= i * 0.05 else if i <= 2000 then m:= i * 0.1 - 25 else if i <= 5000 then m:= i * 0.15 - 125 else if i <= 20000 then m:= i * 0.2 - 375 else if i <= 40000 then m:= i * 0.25 - 1375 else if i<= 60000 then m:= i * 0.3 - 3375 else if i<= 80000 then m:= i * 0.35 - 6375 else if i<= 100000 then m:= i * 0.4 - 10375 else m:= i * 0.45 - 15375; mmo1.Text := format ('需要缴纳 %f元 的税' , [m]); mmo1.Lines.Add( format ('税后工资为 %f元' , [i-m+2000]))