Функция 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;