取得每個月的最後一天,以下是實驗用到的代碼

現在用到要取得月中的最後一天,在 sql 中用 2007-02-30 這個日期試了一下,出錯了,所以必須用有效日期,
以下的代碼是實驗用到的

 

procedure TForm1.Button1Click(Sender: TObject);
var
  fisc:string;
  ss : string;
  m1,m2:Tdatetime;
  nextMonth:tdatetime;
  curMonth:tdatetime;
  maxDay:string;
  m,y:dword;
  ms,ys:string;

begin

  m1 := strtodate('2007-09-29');
  m2 := strtodate('2007-10-28');

  m :=dateutils.MonthOf(m2);
  y := dateutils.YearOf(m2);

  ms :=inttostr(m);
  ys :=inttostr(y);

  nextMonth := strtodate(ys+'-'+inttostr(m+1)+'-01');  // 取得下一個月的 1 號
  curMonth :=  strtodate(ys+'-'+inttostr(m)+'-01');    // 取得當月的 1 號

 showmessage(floattostr(nextMonth-curMonth));                // 31
 showmessage(datetostr( dateutils.EndOfTheMonth(curMonth))); // 2007-10-31
 showmessage(datetostr( dateutils.EndOfTheDay(curMonth)));   // 2007-10-01
 showmessage(datetostr( dateutils.EndOfTheYear(curMonth)));  // 2007-12-31
 showmessage(datetostr( dateutils.EndOfAMonth(y,m)));        // 2007-10-31
end;