显示日期前6个月的日期从combobox选择

Question

我有一个组合框，显示月份从1月到12月，用户可以选择哪个月他们想要查看数据..这是第一个数据..

for i := iYear - 2 to iYear + 1 do begin 
for j := 1 to 12 do begin 
    dTem := EncodeDate(i, j, 1); 
    sTem := FormatDateTime('mmm yyyy', dTem); 
    cboMonth.Items.Add(sTem); 
end; 

end;

dFromDate := EncodeDate(iYr, iMon, 1); 
dToDate := EncodeDate(iYr, iMon, DaysInMonth(iYr, iMon)); 

我的问题是我也想，以示对year..when用户从组合框中选择该月的数据，然后自动我的数据，由6个月前，直到这个月显示的数据，他们从中选择组合框

Answer 1

试试这个：

dToDate := incmonth(dFromDate, -6);// -6 = Less 6 months 

Answer 2

结帐IncMonth。