小菜鸟求助，日期怎么相加？？？
比如说今天是多少号，然后加上多少天之后，那个日期是几月几日呢？？？我的Form是这样，在DateTimePicker中选择日期，在Edit内输入需要加的日期，在MsdkEdit内显示相加后的日期，这样可以吗？？？我自己写了些代码，但不能实现啊，我的代码是这样
procedure TForm1.SpeedButton2Click(Sender: TObject);
var
Time1, Time2, Time3: TDateTime;
begin
Time1 := DateTimePicker1.Time;
Time2 := StrToTime(Edit1.Text);
Time3 := StrToTime(MaskEdit1.Text);
if Sender = SpeedButton2 then
begin
Time3 := Time1 + Time2;
end;
end;
鱼友们，小甲鱼，快点来帮帮我啊
有莫有人会啊
edit3.text:=formatdatetime('yyyy-mm-dd',Trunc(datetimepicker1.Date)+strtoint(edit2.text) )
页:
[1]