timepicker的问题

[hugh9527]

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

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

[hugh9527]

thanks

[andwo]

endtime.datetime := now; bgtime.datetime := now - 30;

[hugh9527]

月份会有30天，31天，28天或者29天的可能，now-30就不对呀?

[andwo]

明白你的意思了。你就跨度一个月 uses DateUtils; endtime.datetime := now; bgtime.datetime := IncMonth(Now,-1); bgtime.datetime := IncDay(bgtime.datetime,1);