显示日期前6个月选择组合框的日期

Question

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

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;  

结束;

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

我的问题是我也想显示年份的数据..当用户从组合框中选择月份时,我的数据将自动显示6个月之前的数据,直到他们从组合框中选择的月份.

Answer 1

查看IncMonth.