结算日

 procedure TForm1.Button1Click(Sender: TObject);
var
    d1: TDateTime;
begin
   d1 := IncDay(now,27 - DayOf(now));  //27 为每个月27号为结算日期,也可以改成1号为结算日 d1 :=  IncDay(now,1 - DayOf(now));
   Label3.Caption := '结算日期：'+DateToStr(d1);
   Label1.Caption := '开始日期：'+ DateToStr(IncMonth(d1,-1));  //-1为上一个月
   Label2.Caption := '结束日期：'+ DateToStr(incday(d1,-1));    //-1为上一天
end;