你可以把这个月所在的年和月给出这样你就可以有一个日期了
2002-05-01 后你可以做一个循环
var i:integer;
dDatetime:Tdatetime;
is_last:boolean;
begin
is_last:=False;
dDatetime:=strtodate('2002-05-01');
while Not is_last do
begin
...
dDatetime:=dDatetime+1;
取出其中的月份是否还是以前的那个月
...
end;
end;
这样你大约清楚了吗?