Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2010.08.27;
Скачать: CL | DM;

Вниз

Формат даты вида "30 марта 2010 года"   Найти похожие ветки 

 
Dr. Genius   (2010-03-30 20:21) [0]

Здравствуйте!

Имеется ли в Delphi какой-либо стандартный способ представить дату в формате САБЖа?

FormatDateTime("d mmmm yyyy") дает не совсем то, что нужно.


 
Омлет ©   (2010-03-30 21:01) [1]

Вполне стандартный способ:

function GetDateStr(Date: TDateTime): string;
const
 MONTHS: array[1..12] of string =
   ("января", "февраля", "марта", "апреля", "мая", "июня", "июля", "августа",
    "сентября", "октября", "ноября", "декабря");
var
 Y, M, D: Word;
begin
 DecodeDate(Date, Y, M, D);
 Result := Format("%d %s %d года", [D, MONTHS[M], Y]);
end;


 
Leonid Troyanovsky ©   (2010-03-30 21:23) [2]


> Dr. Genius   (30.03.10 20:21)  


function DateFormatStr(ADate: TDate; AFormat: String): String;
var
 st: TSystemTime;
 buffer: array [0..$FFF] of Char;
begin
 DateTimeToSystemTime(ADate, st);
 Win32Check(GetDateFormat( LOCALE_USER_DEFAULT,
                                        0,
                                        @st,
                                        Pointer(AFormat),
                                        buffer,
                                        SizeOf(buffer)) > 0);
 Result := buffer;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 Caption := DateFormatStr(Date, LongDateFormat);
end;

--
Regards, LVT.


 
Dr. Genius   (2010-03-30 21:32) [3]


> Омлет


> Leonid Troyanovsky


Огромное спасибо! То, что нужно.



Страницы: 1 вся ветка

Текущий архив: 2010.08.27;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.063 c
15-1274955766
Медвежонок Пятачок
2010-05-27 14:22
2010.08.27
три года за смену домашней страницы в браузере


15-1271830825
12
2010-04-21 10:20
2010.08.27
Apache2.2. Странный глюк


9-1188170421
Jkot
2007-08-27 03:20
2010.08.27
Генеация текстурных координат.


15-1264749431
Делфиец
2010-01-29 10:17
2010.08.27
Помогите разобраться что это за ерунда


2-1270400826
lamer6666
2010-04-04 21:07
2010.08.27
Потоки и POST