請教前輩: 如果知道某日期, 05/10/2002,要如何取得5月份最後一天呢? 也要考慮2月份是否為閏月 謝謝指教!!

function TForm1.LDOM(Date: TDateTime): TDateTime;
var  Year, Month, Day: Word;
begin
  DecodeDate(Date, Year, Month, Day);
  if Month < 12 then 
    inc(Month)
  else begin 
    Month := 1; 
    inc(Year) 
  end;
  Result := EncodeDate(Year, Month, 1) - 1;
end;

我覺得這是另一種思維的寫法... 謝謝!!

如果知道某日期, 05/10/2002,要如何取得5月份最後一天呢? 也要考慮2月份是否為閏月 ------------------------------------ 其實在DateUtils中已經將Date相關函數整理好了,在USes中加入DateUtils EndOfTheMonth是你所要的函數,其內容為function EndOfTheMonth(const AValue: TDateTime): TDateTime; var LYear, LMonth, LDay: Word; begin DecodeDate(AValue, LYear, LMonth, LDay); Result := EndOfTheDay(EncodeDate(LYear, LMonth, DaysInAMonth(LYear, LMonth))); end; 參考...

另一種: 

  Uses SysUtils;
  Days := MonthDays[IsLeapYear(Year), Month];