同志们看看，如何对日期进行运算。

Question

Dtcalc1.StartTime:=StrToINT(trim(Flatedit6.text));
Dtcalc1.Endtime:=StrToInt(Trim(Stime));
?????????????
StrToInt->>>>>>>>StrToDate!!!!!!!

Answer 1

var aDate:DateTime
使用Double(aDate)日期转换成double型,操作。如果我要是解决你的问题，请你。

Answer 2

Flatedit10.text:=IntToStr(StrToInt(Trim(Flatedit9.text))-StrToInt(Trim(flatedit8.text)));
中，StrToInt(Trim(flatedit8.text)));的结果是Integer类型的，而你又用IntToStr(StrToInt(Trim(Flatedit9.text))这个String类型的值去减，当然会错了。字符型不能直接减整型的

Answer 3

问题的说明
关于Stime:
//取得系统时间
procedure TForm2.Timer1Timer(Sender: TObject);
var
  DateTime:TdateTime;
  Year,Month,Day:word;
begin
 DateTime:=Now;
 DecodeDate(DateTime,Year,Month,Day);
 Stime:=Inttostr(Year)+'-'+Inttostr(month)+'-'+Inttostr(Day);
 end;
关于控件Dtcalc,只有2个参数starttime,endtime,它的功能：可以从starttime和endtime中计算出相差的天数，有例子上使用了datetimepicker控件，他配合Dtcalc使用，搭配较好，没有类型转换的必要，dtcalc控件下载地址http://xuhao23.myetang.com/kj/date/dtcalc.zip
目前的问题是需要转换类型后去计算，目的是将结果放到edit.text中，本人将其转换为integer,可惜出错。
请高手帮忙。