Текущий архив: 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.043 c