Formatdatetime в склонениях

[KWN, lnc]

Всем привет!
Подскажите пожалуйста, как мне отформатировать дату в необходимом виде -
Требуется, чтобы дата выводилась в виде "27 Февреля 2009" (именно, чтобы было
склонение месяца, а не "27 Февраль 2008". Делаю так: FormatDateTime('dd mmmm
yyyy', Now) - в результате, получаю несклоняемый месяц. Возможно ли это
сделать средствами Delphi, или же, надо использовать функции WinAPI?
Заранее благодарен, Виталий.

[AndrzejX]

У меня не вышло. Пришлось оператором CASE сопоставлять число со склонением месяцев.

[KWN, lnc]

AndrzejX неужели никак, а как сделать с помошью CASE ??? и какой кодинг у него? желательно исходник... заранее спасибо....

11:25

вот нашел кодинг по поисковику google но как его использовать?

function FormatDate(Year, Month, Day : Dword) : string;
var SysTime : Tsystemtime; Buffer: array[0..1023] of Char;
begin
SysTime.wYear := Year;
SysTime.wMonth := Month;
SysTime.wDay := Day;
SetString(Result, Buffer, GetDateFormat(LOCALE_SYSTEM_DEFAULT ,
DATE_LONGDATE, @SysTime, nil, Buffer, SizeOf(Buffer)));
end;

Используйте кнопку "Правка" для дополнения и изменения своих постов!

[KWN, lnc]

mihali4 извиняюсь!

А нас чет проблемы можете тему закрывать... я разобрался (там скажем в LAbel1.Caption := надо было добавить FormatDate

[_SERGEYX_]

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;