날짜를 표시하기 전에 날짜를 6 개월 콤보 박스에서 선택

Question

나는 jan에서 dec까지의 달을 보여주는 콤보 박스를 가지고 있는데, 여기서 사용자는 데이터를 볼 달을 선택할 수 있습니다. 이것은 첫 번째 데이터입니다 ..

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)); 

내 문제는 내가 또한 자동으로 내 데이터들이 선택하는 달 전까지 전에 6개월에서 데이터를 표시하는 사용자가 콤보 상자에서 월을 선택 year..when에 대한 데이터를 표시 할 것입니다 콤보 상자.

Answer 1

시도해보기 :

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

Answer 2

체크 아웃 IncMonth을 확인하십시오.