Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.48 MB
Время: 0.02 c