Функція FormatDateTime – розширене форматування змінної TDateTime в рядок

Функція FormatDateTime в Delphi – розширене форматування змінної TDateTime в рядок.

Функція FormatDateTime: Показ усіх типів даних форматування полів дати

var
  myDate : TDateTime;

begin
  // Встановлення нашої змінної TDateTime у повне значення дати та часу:
  // 09/02/2000 в 01:02:03.004  (.004 миллисекунд)
  myDate := EncodeDateTime(2000, 2, 9, 1, 2, 3, 4);

  // Тільки дата – числові значення без початкових нулів (крім року)
  ShowMessage('              d/m/y = '+
              FormatDateTime('d/m/y', myDate));

  // Тільки дата – числові значення з початковими нулями
  ShowMessage('           dd/mm/yy = '+
              FormatDateTime('dd/mm/yy', myDate));

  // Використання коротких назв для дня, місяця та додавання тексту вільного формату ('of')
  ShowMessage('  ddd d of mmm yyyy = '+
              FormatDateTime('ddd d of mmm yyyy', myDate));

  // Використання довгих назв для дня та місяця
  ShowMessage('dddd d of mmmm yyyy = '+
              FormatDateTime('dddd d of mmmm yyyy', myDate));

  // Використання налаштувань тільки ShortDateFormat
  ShowMessage('              ddddd = '+
              FormatDateTime('ddddd', myDate));

  // Використання налаштувань тільки LongDateFormat
  ShowMessage('             dddddd = '+
              FormatDateTime('dddddd', myDate));

  // Використання налаштувань ShortDateFormat + LongTimeFormat
  ShowMessage('                  c = '+
              FormatDateTime('c', myDate));
end;

Функція FormatDateTime: Показ ефекту місцевих параметрів налаштувань формату дати

var
  myDate : TDateTime;

begin
  // Встановлення нашої змінної TDateTime у повне значення дати та часу
  myDate := StrToDateTime('09/02/49 01:02:03.004');

  // Демонстрація локальних налаштувань за замовчуванням

  // Використання значень DateSeparator та TimeSeparator
  ShowMessage('dd/mm/yy hh:mm:ss = '+
              FormatDateTime('dd/mm/yy hh:mm:ss', myDate));

  // Використання ShortMonthNames
  ShowMessage('              mmm = '+FormatDateTime('mmm', myDate));

  // Використання LongMonthNames
  ShowMessage('             mmmm = '+FormatDateTime('mmmm', myDate));

  // Використання ShortDayNames
  ShowMessage('              ddd = '+FormatDateTime('ddd', myDate));

  // Використання LongDayNames
  ShowMessage('             dddd = '+FormatDateTime('dddd', myDate));

  // Використання рядка ShortDateFormat
  ShowMessage('            ddddd = '+FormatDateTime('ddddd', myDate));

  // Використання рядка LongDateFormat
  ShowMessage('           dddddd = '+FormatDateTime('dddddd', myDate));

  // Використання TimeAmString
  ShowMessage('           hhampm = '+FormatDateTime('hhampm', myDate));

  // Використання рядка ShortTimeFormat
  ShowMessage('                t = '+FormatDateTime('t', myDate));

  // Використання рядка LongTimeFormat
  ShowMessage('               tt = '+FormatDateTime('tt', myDate));

  // Використання TwoDigitCenturyWindow
  ShowMessage('       dd/mm/yyyy = '+
              FormatDateTime('dd/mm/yyyy', myDate));

  ShowMessage('');

  // Тепер показуємо замовчування
  DateSeparator      := '-';
  TimeSeparator      := '_';
  ShortDateFormat    := 'dd/mmm/yy';
  LongDateFormat     := 'dddd dd of mmmm of yyyy';
  TimeAMString       := 'утро';
  TimePMString       := 'день';
  ShortTimeFormat    := 'hh:mm:ss';
  LongTimeFormat     := 'hh : mm : ss . zzz';
  ShortMonthNames[2] := 'ЛЮТ';
  LongMonthNames[2]  := 'ЛЮТИЙ';
  ShortDayNames[4]   := 'ВТ';
  LongDayNames[4]    := 'ВІВТОРОК';
  TwoDigitYearCenturyWindow := 75;

  // Установка нашої змінної TDateTime в те саме значення, що і раніше
  // за винятком того, що ми повинні використовувати нові роздільники дати та часу
  // Тут діє тільки змінна TwoDigitYearCenturyWindow
  myDate := StrToDateTime('09-02-49 01_02_03.004');

  // Використання значень DateSeparator і TimeSeparator
  ShowMessage('dd/mm/yy hh:mm:ss = '+
              FormatDateTime('dd/mm/yy hh:mm:ss', myDate));

  // Використання ShortMonthNames
  ShowMessage('              mmm = '+FormatDateTime('mmm', myDate));

  // Використання LongMonthNames
  ShowMessage('             mmmm = '+FormatDateTime('mmmm', myDate));

  // Використання ShortDayNames
  ShowMessage('              ddd = '+FormatDateTime('ddd', myDate));

  // Використання LongDayNames
  ShowMessage('             dddd = '+FormatDateTime('dddd', myDate));

  // Використання рядка ShortDateFormat
  ShowMessage('            ddddd = '+FormatDateTime('ddddd', myDate));

  // Використання рядка LongDateFormat
  ShowMessage('           dddddd = '+FormatDateTime('dddddd', myDate));

  // Використання TimeAmString
  ShowMessage('           hhampm = '+FormatDateTime('hhampm', myDate));

  // Використання рядка ShortTimeFormat
  ShowMessage('                t = '+FormatDateTime('t', myDate));

  // Використання рядка LongTimeFormat
  ShowMessage('               tt = '+FormatDateTime('tt', myDate));

  // Використання TwoDigitCenturyWindow
  ShowMessage('       dd/mm/yyyy = '+
              FormatDateTime('dd/mm/yyyy', myDate));
end;