财务软件版1楼: 已知：给定一个时间间隔（若干个月）和起始月份
要求：月份随循环变量增一，年份也随着变，日期不管
for i=0 to MonCount do
begin
DecodeDate(dtp1.DateTime,iYear,iMonth,iDay);
…………？
dtp2_temp.DateTime:=EncodeDate(iYear,iMonth,iDay);
end;
比如：给定 3 200412
可得：200412 200501 200502

2楼: IncMonth function

Returns a date shifted by a specified number of months.

Unit

SysUtils

Category

datetime routines

Delphi syntax:

function IncMonth(const Date: TDateTime; NumberOfMonths: Integer = 1): TDateTime; 如管家婆财务软件介绍

3楼: 抱歉,选错了分类

4楼: 首先谢谢你，能否再给一个原创的呢？

5楼: procedure TForm1.Button1Click(Sender: TObject);
var
v_Date: TDate;
v_Count: Byte;
begin
v_Date := StrToDate(＇＇2004-12-01＇＇);
for v_Count := 1 to 3 do
begin
v_Date := IncMonth(v_Date, 1);
ShowMessage(FormatDateTime(＇＇YYYYMM＇＇, v_Date));

end;
end;

6楼: 接受答案了.