{ **** UBPFD *********** by delphibase.endimus.com ****
>> Преобразование даты (месяц прописью)
Преобразование даты. Например: 23.02.02 преобразуется в 23 февраля 2002 года.
Зависимости: DecodeDate
Автор: mukha, <a href="mailto:mukha@vistcom.ru">mukha@vistcom.ru</a>, Волгоград
Copyright: mukha
Дата: 17 ноября 2002 г.
***************************************************** }
function Monthstr(S: string): string;
const
 Mes: array[1..12] of string = ('января', 'февраля', 'марта', 'апреля',
  'мая', 'июня', 'июля', 'августа', 'сентября', 'октября', 'ноября',
  'декабря');
var
 Year, Month, Day: Word;
begin
 try
  StrToDate(S); // пр-ка правильности ввода даты
  DecodeDate(StrToDate(S), Year, Month, Day);
  Result := IntToStr(day);
  Result := Result + ' ' + Mes[Month];
  Result := result + ' ' + IntToStr(Year) + ' года';
 except
  raise
  Exception.Create('"' + s + '"' + ' - такой даты нет!');
 end;
end;