Delphi中从一个日期时间中算出当月（当年、当季）的第一天与最后一天

本文链接：https://blog.csdn.net/gust2013/article/details/129877566

该代码段提供了一系列Delphi函数，用于计算给定日期所在月份、季度和年的开始和结束日期。函数包括DateMonthStart、DateMonthEnd、DateQuarterStart、DateQuarterEnd和DateYearStart、DateYearEnd，分别返回当前日期所在月份的第一天和最后一天、季度的开始和结束以及年的开始和结束日期。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

应用场景

日期计算常会使用到。

函数代码

function DateMonthStart(const DT: TDateTime): TDateTime;
var
  Day, Month, Year: Word;
begin
  SysUtils.DecodeDate(DT, Year, Month, Day);
  Result := SysUtils.EncodeDate(Year, Month, 1);
end;

function DateMonthEnd(const DT: TDateTime): TDateTime;
var
  Day, Month, Year: Word;
  LastDay: Byte;
begin
  SysUtils.DecodeDate(DT, Year, Month, Day);
  LastDay := DaysInMonth(DT);
  Result := SysUtils.EncodeDate(Year, Month, LastDay);
end;

function DateQuarterStart(const D: TDateTime): TDateTime;
var
  Year, Month, Day, Quarter: Word;
begin
  SysUtils.DecodeDate(D, Year, Month, Day);
  Quarter := 4 - ((12 - Month) div 3);
  Month := 0;
  SysUtils.IncAMonth(Year, Month, Day, (Quarter * 3) - 2);
  Result := SysUtils.EncodeDate(Year, Month, 1);
end;

function DateQuarterEnd(const D: TDateTime): TDateTime;
var
  Year, Month, Day, Quarter: Word;
begin
  SysUtils.DecodeDate(D, Year, Month, Day);
  Quarter := 4 - ((12 - Month) div 3);
  // get 1st day of following quarter
  Month := 0;
  SysUtils.IncAMonth(Year, Month, Day, Quarter * 3 + 1);
  // required date is day before 1st day of following quarter
  Result := SysUtils.EncodeDate(Year, Month, 1) - 1.0;
end;

function DateYearStart(const DT: TDateTime): TDateTime;
var
  Year, Month, Day: Word;
begin
  SysUtils.DecodeDate(DT, Year, Month, Day);
  Result := SysUtils.EncodeDate(Year, 1, 1);
end;

function DateYearEnd(const DT: TDateTime): TDateTime;
var
  Year, Month, Day: Word;
begin
  SysUtils.DecodeDate(DT, Year, Month, Day);
  Result := SysUtils.EncodeDate(Year, 12, 31);
end;

测试

procedure TForm1.Button1Click(Sender: TObject);
begin
  Memo1.Lines.Add(DateTimeToStr(DateMonthStart(Now))) ;
  Memo1.Lines.Add(DateTimeToStr(DateMonthEnd(Now))) ;
  Memo1.Lines.Add(DateTimeToStr(DateQuarterStart(Now))) ;
  Memo1.Lines.Add(DateTimeToStr(DateQuarterEnd(Now))) ;
  Memo1.Lines.Add(DateTimeToStr(DateYearStart(Now))) ;
  Memo1.Lines.Add(DateTimeToStr(DateYearEnd(Now))) ;
end;
···