Форматирование даты-времени (Pascal)


Во время исправления ошибки в старой программе бывшего коллеги обнаружил кропотливый код форматирования даты-времени. Дата и время определяются и обрабатываются отдельно, затем «склеиваются» в одну строку вида 23012015#1647.zip.

uses
  SysUtils;

function GetZipName: string;
var
  AppDate: string;
  AppTime: string;
begin
  AppDate:=DateToStr(Date);
  AppTime:=TimeToStr(Time);
  if Length(AppTime) = 7 then
    AppTime:='0' + AppTime;
  if Length(AppDate) = 8 then
    Insert('20', AppDate, 7);
  Delete(AppDate, 3, 1); //удаление разделителя день-месяц
  Delete(AppDate, 5, 1); //удаление разделителя месяц-год
  Delete(AppTime, 3, 1); //удаление разделителя часы-минуты
  Delete(AppTime, 5, 3); //удаление секунд с разделителем
  Result:=AppDate + '#' + AppTime + '.zip';
end;

Это можно было сделать гораздо проще:

function GetZipName: string;
begin
  Result:=FormatDateTime('ddmmyyyy#hhnn".zip"', Now);
end;
Реклама
Запись опубликована в рубрике программирование с метками . Добавьте в закладки постоянную ссылку.

Добавить комментарий

Заполните поля или щелкните по значку, чтобы оставить свой комментарий:

Логотип WordPress.com

Для комментария используется ваша учётная запись WordPress.com. Выход / Изменить )

Фотография Twitter

Для комментария используется ваша учётная запись Twitter. Выход / Изменить )

Фотография Facebook

Для комментария используется ваша учётная запись Facebook. Выход / Изменить )

Google+ photo

Для комментария используется ваша учётная запись Google+. Выход / Изменить )

Connecting to %s