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

Правильное отображение дати   Найти похожие ветки 

← →
Berezne   (2004-02-17 17:51) [0]

Есть файл БД. В нем есть поле с датой. Формирую отчет для печати. Нужно чтоби в отчете дата отображалась полностью(например: 15 февраля 2004 года.) 15 Февраль 2004 г. сделать получается, а вот так как надо нет.
А короче надо чтоби дата отображалась аналогично как в компоненте DateTimePicker при установленом свойстве DateFormat в dfLong.

Заранее спасиба всем за ответи.

---

← →
Guest   (2004-02-17 17:53) [1]

LongDateFormat

---

← →
Berezne   (2004-02-17 17:57) [2]

Чегото не допру. (Извините, конечно, но у меня сегодня тяжелий день). Где етот параметр надо прописать?

---

← →
Berezne   (2004-02-17 18:13) [3]

Ну подскажите как сделать чтоби название месяца било "февраля", а не "Февраль"!!!!

---

← →
Плохиш   (2004-02-17 18:30) [4]

FormatDateTime(LongDateFormat, myDate);

---

← →
Berezne   (2004-02-18 16:54) [5]

Не могу ничего сделать. Как ни кручу, ничего не получается.
Делаю так: на форму кидаю QRDBText. К нему присобачиваю значение из файла OT_DATA поле DATA.
Для поля DATA для свойства DISPLAYFORAT прописиваю "dddddd" тоесть чтоби дата отображалась полностью. Но все равно виходит 18 Февраль 2004 г. Нужное 18 февраля 2004 г. не получается.
Смотрел системние установки дати и времени. В них полное значение дати отображается как надо - 18 февраля 2004 г.

В чем причина не могу понять?

Подскажите!. Может в настройках самого Делфи чтото не так?

---

← →
Berezne   (2004-02-18 16:57) [6]

Еще хотел добавить: дата должна бить обязательно полная!

---

← →
Алхимик ©   (2004-02-18 18:17) [7]

Сколько всего месяцев? Правильно - 12.
Свою функцию не судьба написать?
function MyCoolDateConvert(const ADate : TDateTime) : string;
var
str : string;
y,m,d : word;
begin
DecodeDate(ADate,y,m,d);
case m of
1 : str := "января";
...
12 : str := "декабря";
end;
result := IntToStr(d)+" "+str+" "+IntToStr(y)+"г.";
end;

---

← →
Maxud ©   (2004-02-18 18:24) [8]

function FormatDate(aDate: TDateTime) : string;
var SysTime : Tsystemtime;
Buffer: array[0..1023] of Char;
Year, Month, Day : word;
begin
DecodeDate(aDate, Year, Month, Day);
SysTime.wYear := Year;
SysTime.wMonth := Month;
SysTime.wDay := Day;
SetString(Result, Buffer, GetDateFormat(LOCALE_SYSTEM_DEFAULT,
DATE_LONGDATE, @SysTime, nil, Buffer, SizeOf(Buffer)));
SetLength(Result, Length(Result)-1); // delete last #0
end;

---

← →
Berezne   (2004-02-18 23:03) [9]

Ви уж извиняйте. Но я только учусь. Еще не все получается.

---

← →
Berezne   (2004-02-18 23:52) [10]

Большле спасибо всем за ответы. Особенно Алхимику. Все получилось. Как говорится с меня 100 грам и пончик.

Еще раз спасиба.

---

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

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



Память: 0.47 MB
Время: 0.013 c