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

Вниз

Как отабражать в 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


 
Ani ©   (2004-07-31 16:15) [13]

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


 
Ani ©   (2004-07-31 16:26) [14]

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



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

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

Наверх




Память: 0.5 MB
Время: 0.032 c
1-1091803396
Limp
2004-08-06 18:43
2004.08.22
Милисекунды в TDateTime


1-1091713019
DimonNew
2004-08-05 17:36
2004.08.22
ListBox & Multiselect


1-1091972182
Toshanius
2004-08-08 17:36
2004.08.22
Програмное добавление TabSheet a


1-1092066260
new developer
2004-08-09 19:44
2004.08.22
Кодировка в Memo


3-1091011103
vic
2004-07-28 14:38
2004.08.22
QRStringsBand