求一日期函数

Question

日期區間: 以25日為基準日，當月26日為下月月初，25日當月月底， 
若系統日為(97/11/28)，日期區間預設為(97/10/26)~(97/11/25)
若系統日為(97/11/12)，日期區間預設為(97/09/26)~(97/10/25)
若系統日為(97/11/25)，日期區間預設為(97/09/26)~(97/10/25)
若系統日為(97/11/26)，日期區間預設為(97/10/26)~(97/11/25)结果传给MaskEdit

Answer 1

var
  BeginDate, EndDate: string;
  Year, Month, Day: Word;
begin
  DecodeDate(Date, Year, Month, Day);
  if Day >= 26 then
  begin
    BeginDate := FormatDateTime('yyyy-mm', IncMonth(Date, -1)) + '-26';
    EndDate := FormatDateTime('yyyy-mm', Date) + '-25';
  end
  else
  begin
    BeginDate := FormatDateTime('yyyy-mm', IncMonth(Date, -2)) + '-26';
    EndDate := FormatDateTime('yyyy-mm', IncMonth(Date, -1)) + '-25';
  end;
end;