Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

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

Ani © (2004-07-20 11:26:00)
Как отабражать в QuickReport е текущую дату в виде 5 июля 2004 год

Ani (2004-07-31 16:26:00) [1]
Кстати OnBeforePreview. Было бы лучше еслы присуствовал такая события

Ani (2004-07-31 16:15:00) [2]
Не слышком ли я грубо сделал:
DecodeDate(Now, Year, Month, Day);
Chis:=inttostr(Day)+' '+getmonthname(Month,1)+' '+inttostr(Year)+' года';
MyQuickReport2.Chislo1.Caption:=chis;
MyQuickReport2.Preview;

Koala (2004-07-31 16:07:00) [3]
OnBeforePreview или OnBeforePrint

Kolik (2004-07-31 15:32:00) [4]
Koala (31.07.04 14:23) [8]
А где это написать

Ani (2004-07-31 14:38:00) [5]
Thanks

Anatoly Podgoretsky (2004-07-31 14:24:00) [6]
Написать свое форматирование, работы ты то на пару минут

Koala (2004-07-31 14:23:00) [7]
// Получение имени месяца по его номеру. 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;

Ani (2004-07-31 14:18:00) [8]
A есть ли способ отабражаm текущую дату не в виде просто
5 июль 2004 год
а в виде
от 5 июля 2004 год

Ani (2004-07-25 10:11:00) [9]
Thank you Johnmen

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

Соловьев (2004-07-20 11:41:00) [11]

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

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

Johnmen (2004-07-20 11:38:00) [12]
В куерлейбл FormatDateTime('dd mmmm yyyy год',Date);

Ani (2004-07-20 11:37:00) [13]
Ну я знаю, но он отабражает в виде 05.07.2004

Соловьев (2004-07-20 11:31:00) [14]
TQRSysData

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »