Как отабражать в QuickReport е текущую дату в виде 5 июля 2004 го

← →
Ani © (2004-07-20 11:26) [0]

Как отабражать в QuickReport е текущую дату в виде 5 июля 2004 год

← →
Соловьев © (2004-07-20 11:31) [1]

TQRSysData

← →
Ani © (2004-07-20 11:37) [2]

Ну я знаю, но он отабражает в виде 05.07.2004

← →
Johnmen © (2004-07-20 11:38) [3]

В куерлейбл FormatDateTime("dd mmmm yyyy год",Date);

← →
Соловьев © (2004-07-20 11:41) [4]

> Ну я знаю, но он отабражает в виде 05.07.2004

Control Panel ->Настройки даты и времени

← →
Deniz © (2004-07-20 12:11) [5]

> Соловьев © (20.07.04 11:41) [4]
Не надо в настройки, это ж придется всем юзерам лазить :-(
см. Johnmen © (20.07.04 11:38) [3]

← →
Ani © (2004-07-25 10:11) [6]

Thank you Johnmen

← →
Ani © (2004-07-31 14:18) [7]

A есть ли способ отабражаm текущую дату не в виде просто
5 июль 2004 год
а в виде
от 5 июля 2004 год

← →
Koala (2004-07-31 14:23) [8]

// Получение имени месяца по его номеру. function GetMonthName(MonthNumber: Integer; Lang: Integer): string; const MName: array[1..12] of string = ("января", "февраля", "марта", "апреля", "мая", "июня", "июля", "августа", "сентября", "октября", "ноября", "декабря"); MNameU: array[1..12] of string = ("сiчня", "лютого", "березня", "квiтня", "травня", "червня", "липня", "серпня", "вересня", "жовтня", "листопада", "грудня"); begin case Lang of 1: if MonthNumber in [1..12] then result := MName[MonthNumber] else result := "? Month ?"; 2: if MonthNumber in [1..12] then result := MNameU[MonthNumber] else result := "? Month ?"; end; end;

← →
Anatoly Podgoretsky © (2004-07-31 14:24) [9]

Написать свое форматирование, работы ты то на пару минут

← →
Ani © (2004-07-31 14:38) [10]

Thanks

← →
Kolik (2004-07-31 15:32) [11]

Koala (31.07.04 14:23) [8]
А где это написать

← →
Koala (2004-07-31 16:07) [12]

OnBeforePreview или OnBeforePrint

Не слышком ли я грубо сделал:
DecodeDate(Now, Year, Month, Day);
Chis:=inttostr(Day)+" "+getmonthname(Month,1)+" "+inttostr(Year)+" года";
MyQuickReport2.Chislo1.Caption:=chis;
MyQuickReport2.Preview;

Кстати OnBeforePreview. Было бы лучше еслы присуствовал такая события

Как отабражать в QuickReport е текущую дату в виде 5 июля 2004 го Найти похожие ветки