T
terry_zhou82
Unregistered / Unconfirmed
GUEST, unregistred user!
首先我通过函数得到2个DATETIMEPICKER间的相差的天数为N
实现以下功能:
第1天..第10天 取值为5
第11天..第20天 取值为10
第21天..第40天 取值为20
第40天以上... 取值为40
并且通过定义下面函数可以得到:
<CODE>
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;
</CODE>
但是现在问题来了。比如说从1/1到2/24,他们间相差了n天,这天包括从1到10,又从11到20,所取的值都是不同的。上面的那个函数要怎么改才可以满足此功能呢?
实现以下功能:
第1天..第10天 取值为5
第11天..第20天 取值为10
第21天..第40天 取值为20
第40天以上... 取值为40
并且通过定义下面函数可以得到:
<CODE>
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;
</CODE>
但是现在问题来了。比如说从1/1到2/24,他们间相差了n天,这天包括从1到10,又从11到20,所取的值都是不同的。上面的那个函数要怎么改才可以满足此功能呢?