delphi 批量日期格式化

本文整理自网络，侵删。

 


var
  i: integer;
  vLine, vStr, vPart: string;
  vYear, vMonth, vDay: Word;
  vArr: TArray<string>;
  vDate: TDateTime;
begin
  Memo2.Clear;
  for i := 0 to Memo1.Lines.Count - 1 do
  begin
    vLine := Memo1.Lines[i];
    vStr := StringReplace(vLine, '.', '-', [rfReplaceAll]);
    vArr := vStr.Split(['-']);
    case Length(vArr) of
      2:
        begin
          vYear := StrToIntDef(vArr[0], 2020);
          vMonth := StrToIntDef(vArr[1], 1);
          vDay := 1;
          if not TryEncodeDateTime(vYear, vMonth, vDay, 0, 0, 0, 0, vDate) then
            vDate := now;
        end;
      3:
        begin
          vYear := StrToIntDef(vArr[0], 2020);
          vMonth := StrToIntDef(vArr[1], 1);
          vDay := StrToIntDef(vArr[2], 1);
          if not TryEncodeDateTime(vYear, vMonth, vDay, 0, 0, 0, 0, vDate) then
            vDate := now;
        end;
    else
      vDate := Now;
    end;
    Memo2.Lines.Add(FormatDateTime('YYYY-MM-DD', vDate));
  end;

end;

来源：
 

相关阅读 >>

Delphi获取开机时间代码

Delphi 正则提取txt中的email 数据

Delphi idmessage1 idsmtp1 发送邮件支持https

Delphi(更改图标)

Delphi 软件版本称呼

Delphi中move 函数额用法

Delphi 一个中英文记录Delphi实现

Delphi 获取listbox1的行值

Delphi firemonkey 保存图片到jpg的方法 bmp转jpg

Delphi 调用驱动

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » delphi 批量日期格式化