Code:

{ **** UBPFD *********** by delphibase.endimus****

>> Преобразование даты (месяц прописью)

Преобразование даты. Например: 23.02.02 преобразуется в 23 февраля 2002 года.

Зависимости: DecodeDate

Автор: mukha, Этот адрес электронной почты защищён от спам-ботов. У вас должен быть включен JavaScript для просмотра., Волгоград

Copyright: mukha

Дата: 17 ноября 2002 г.

***************************************************** }

function Monthstr(S: string): string;

const

Mes: array[1..12] ofstring = ('января', 'февраля', 'марта', 'апреля',

'мая', 'июня', 'июля', 'августа', 'сентября', 'октября', 'ноября',

'декабря');

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;