日期结算有关问题

日期结算问题
在DELPHI里怎样得到上上月、上月、本月及下月的第一天和最后一天？
是不是应该有一个类？

[解决办法]
看看DateUtils单元里的时间函数。

EndOfAMonth
IncMonth