timepicker的有关问题

timepicker的问题
请教一个关于timepicker的问题
一个bgtime,一个endtime
我要设置一个默认值
条件：不管大月31天，不管小月30天，不管2月的28天还是29天
endtime=now

怎么设置bgtime=endtime-30天的效果？
比如：4月23--5月22,
2月22--3月21，

------解决方案--------------------
明白你的意思了。你就跨度一个月

uses DateUtils;

endtime.datetime := now;
bgtime.datetime := IncMonth(Now,-1);
bgtime.datetime := IncDay(bgtime.datetime,1);