• 周五. 8月 19th, 2022

5G编程聚合网

5G时代下一个聚合的编程学习网

热门标签

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

admin

11月 28, 2021
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;
中年大叔学Delphi

发表回复

您的电子邮箱地址不会被公开。