来抢分一

[G66606495]

1、写函数：输入某年某月某日，判断这一天是这一年的第几天？
特殊情况，闰年需考虑。

2、写函数：企业发放的奖金根据利润提成。利润(I)低于或等于10万元时，奖金可提10%；利润高于10万元，低于20万元时，低于10万元的部分按10%提成，高于10万元的部分，可可提成7.5%；20万到40万之间时，高于20万元的部分，可提成5%；高于40万元时，超过40万元的部分按3%提成，从键盘输入当月利润I，求应发放奖金总数？

[pcwe2002]

1
public function integer wf_daysfromyear (date adt_day);date ldt1

ldt1 = date(string(year(adt_day)) + ".1.1")
return daysafter(ldt1,adt_day) + 1
end function

[pcwe2002]

2
public function double wf_getjj (double ad_jj);
double ld_tmp,ld_sum

ld_tmp = ad_jj - 400000
if ld_tmp > 0 THEN
ld_sum += ld_tmp * 0.03
ad_jj = 400000
END IF

ld_tmp = ad_jj - 200000
if ld_tmp > 0 THEN
ld_sum += ld_tmp * 0.05
ad_jj = 200000
END IF

ld_tmp = ad_jj - 100000
if ld_tmp > 0 THEN
ld_sum += ld_tmp * 0.075
ad_jj = 100000
END IF

ld_sum += ad_jj * 0.01
return ld_sum
end function

[jlwei888]

只接分了！

[dawugui]

1、写函数：输入某年某月某日，判断这一天是这一年的第几天？
特殊情况，闰年需考虑。

---

如果是sql server,不需要函数.
declare @dt as datetime
set @dt = getdate()

select 天 = datediff(day , datename(year,@dt)+'-01-01' , @dt)

/*
天
-----------
69

（所影响的行数为 1 行）
*/

[dawugui]

2、写函数：企业发放的奖金根据利润提成。利润(I)低于或等于10万元时，奖金可提10%；利润高于10万元，低于20万元时，低于10万元的部分按10%提成，高于10万元的部分，可可提成7.5%；20万到40万之间时，高于20万元的部分，可提成5%；高于40万元时，超过40万元的部分按3%提成，从键盘输入当月利润I，求应发放奖金总数？
---

类似个人所得税的算法.

[青锋-SS]

怎么感觉楼主在做作业似的!

[AFIC]

choose case i
case is < 100000
return .1*i
case 100001 to 200000
return .075 * i + 2500
case 200001 to 400000
return .05 * i + 7500
case is > 400001
return .03 * i + 15500
case else
return 0
end choose