顯示日期前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。