Автор Анатолий Манаенков задал вопрос в разделе Другие языки и технологии
delphi FormatDateTime и получил лучший ответ
Ответ от Ёизов Максим[гуру]
function DataProp(S: TDateTime): string;
const
Mes: array[1..12] of string = ('января', 'февраля', 'марта', 'апреля',
'мая', 'июня', 'июля', 'августа', 'сентября', 'октября', 'ноября',
'декабря');
var
Year, Month, Day: Word;
begin
DecodeDate(S, Year, Month, Day);
Result := IntToStr(day) + ' ' + Mes[Month] +' ' + IntToStr(Year) + ' г. ';
end;
Источник: не забывайте закрывать вопросы.
Ответ от Alexey Galkin[мастер]
в ауте.. .сотней способов, начиная от преобразования в строку и замены символов.. . Прочитай хелп, что уж совсем-то.. . по синтаксису вопросы сыпать?
в ауте.. .сотней способов, начиная от преобразования в строку и замены символов.. . Прочитай хелп, что уж совсем-то.. . по синтаксису вопросы сыпать?
Ответ от 22 ответа[гуру]
Привет! Вот подборка тем с похожими вопросами и ответами на Ваш вопрос: delphi FormatDateTime