您的位置: 首页  >  IT文章  >  delphi '20210806'转'2021-08-06'

delphi '20210806'转'2021-08-06'

分类: IT文章 • 2022-05-15 20:26:27 
function StrtoDate(Astr: string): string;
var
  D: TDateTime;
  s: string;
begin
   //'20210806'转'2021-08-06'
  // uses System.StrUtils
  s := StuffString(StuffString(Astr, 5, 0, '-'), 8, 0, '-');
  D := VarToDateTime(s);
  Result := FormatDatetime('M-dd', D);
end;

相关推荐