您所在位置：主题：急，这个算法怎么写？（在李维BLOG,CSDN,盒子，DELPHI.KTOP论坛都没人做出来啊）
zhouying82
[专家分：0] 发布于 2008-12-17 10:17:00
首先我通过函数得到2个DATETIMEPICKER间的相差的天数为N实现以下功能：
第1天..第10天
取值为0第11天..第20天 取值为10
第21天..第40天 取值为20
第40天以上... 取值为40
我需要的结果为：比如说N=21天，我要取的值希望就是：
0（取的值）*10（10-1+1天）+10（取得值）*10（20-11+1天）+20*（1天）=xxx.//总的天数加起来是21天。
但我用过定义下面函数可以得到
function cqf:integer;var n:integer;
begin
case n of
1..10:edit1.text:=inttostr(5);
11..20:edit1.text:=inttostr(10)'
21..40:edit1.text:=inttostr(20);
.end;结果不对啊？我试着用子界类型，但是不知道怎样取子界类型的个数，我算不来。那位大侠可以帮帮忙。
第1天..第10天
取值为0第11天..第20天 取值为10
第21天..第40天 取值为20
第40天以上... 取值为40
我需要的结果为：比如说N=21天，我要取的值希望就是：
0（取的值）*10（10-1+1天）+10（取得值）*10（20-11+1天）+20*（1天）=xxx.//总的天数加起来是21天。
但我用过定义下面函数可以得到
function cqf:integer;var n:integer;
begin
case n of
1..10:edit1.text:=inttostr(5);
11..20:edit1.text:=inttostr(10)'
21..40:edit1.text:=inttostr(20);
.end;结果不对啊？我试着用子界类型，但是不知道怎样取子界类型的个数，我算不来。那位大侠可以帮帮忙。