Delphi中取出长短形式的周几（星期几）、几月份

D-Nolan

已于 2023-04-09 11:26:00 修改

阅读量238

点赞数

分类专栏： delphi常用函数文章标签： delphi

于 2023-04-05 15:12:35 首次发布

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

版权

delphi常用函数专栏收录该内容

38 篇文章 0 订阅

订阅专栏

函数代码

高版本中：

function LongDayNameXE(const ADateTime: TDateTime): string;
begin
  Result := FormatSettings.LongDayNames[DayOfWeek(ADateTime)];
end;

function LongMonthNameXE(const ADateTime: TDateTime): string;
begin
  Result := FormatSettings.LongMonthNames[DateMonth(ADateTime)]
end;

function ShortDayNameXE(const ADateTime: TDateTime): string;
begin
  Result := FormatSettings.ShortDayNames[DayOfWeek(ADateTime)]
end;

function ShortMonthNameXE(const ADateTime: TDateTime): string;
begin
  Result := FormatSettings.ShortMonthNames[DateMonth(ADateTime)]
end;

低版本中：

function LongDayName(const ADateTime: TDateTime): string;
begin
  Result := LongDayNames[SysUtils.DayOfWeek(ADateTime)];
end;

function LongMonthName(const ADateTime: TDateTime): string;
begin
  Result := LongMonthNames[DateMonth(ADateTime)]
end;

function ShortDayName(const ADateTime: TDateTime): string;
begin
  Result := ShortDayNames[SysUtils.DayOfWeek(ADateTime)]
end;
function ShortMonthName(const ADateTime: TDateTime): string;
begin
  Result := ShortMonthNames[DateMonth(ADateTime)]
end;