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

Реализация полного формата даты в отчете   Найти похожие ветки 

← →
Максон ©   (2011-08-10 06:37) [0]

День добрый, товарищи.
Подскажите или наведите на мысль:
На форме из DateTimePicker выбирается нужная дата, по нажатию кнопки формируется отчет в ворде по шаблону (.dot). Необходимо, что бы в отчете вместо даты, например, 22.01.11 отображалось 22 января 2011.
Как это сделать?

---

← →
Думкин ©   (2011-08-10 06:41) [1]

А вставляется как?

Если поле формы - то там формат выставить нужно.

---

← →
Максон ©   (2011-08-10 07:13) [2]

DateFormat->dtLong.

Сделал так, но при формировании отчета  вместо длинной даты:
10 августа 2011  вышел набор цифирок, типа 4178 12216546464 и т.д.

Немного лирики: Отчет формируется в Ворде. Там я поставил закладку - дата,  потом переименовал документ в файл(шаблон ворда) с расширением .dot

---

← →
Медвежонок Пятачок ©   (2011-08-10 09:08) [3]

сделать дату длинной строкой в delphi

---

← →
Anatoly Podgoretsky ©   (2011-08-10 12:23) [4]

> Максон  (10.08.2011 06:37:00)  [0]

Это присвоение значения.

---

← →
Максон ©   (2011-08-10 13:07) [5]

Когда нажимаю  выбор даты на DateTimePicker

Procedure TForm1.DateeTimePickerChange(Sender:TObject);
const Mes:array[1..12] of string=("января","февраля","марта","апреля",
"мая","июня","июля","августа","сентября","октября","ноября","декабря");
var
Present: TDate;      
 Year, Month, Day : Word;
begin
Present:= Date;
 DecodeDate(Present, Year, Month, Day);
 Edit1.Text := IntToStr(Day)+ " " +
   Mes[Month] + " "+ IntToStr(Year)+
   " года, ";
end;

И какую бы я дату бы не выбрал в Edit1 всегда отображается текущая дата.
Где я не прав?

---

← →
Думкин ©   (2011-08-10 13:13) [6]

А что такое Date?

---

← →
Омлет ©   (2011-08-10 13:15) [7]

Так бери DateeTimePicker.Date

---

← →
Максон ©   (2011-08-10 13:20) [8]

Present:= Date;
Вы про это?
Изначально  код выглядел так
Present:= Now;

Тогда отображается  текущая дата, а мне надо чтобы отображалась дата которую выберет пользователь

---

← →
Думкин ©   (2011-08-10 13:21) [9]

> а мне надо чтобы отображалась дата которую выберет пользователь

это я понял, я не понял, откуда этот Date.

---

← →
OW ©   (2011-08-10 13:24) [10]

DateTimeToStr не спасет?

---

← →
Inovet ©   (2011-08-10 13:37) [11]

FormatDateTime ещё.

---

← →
Кщд   (2011-08-10 13:37) [12]

>Максон ©   (10.08.11 13:20) [8]
Вам безуспешно твердят про:
Date function
Returns the current system date.

---

← →
Максон ©   (2011-08-10 13:42) [13]


Procedure TForm1.DateeTimePickerChange(Sender:TObject);
const Mes:array[1..12] of string=("января","февраля","марта","апреля",
"мая","июня","июля","августа","сентября","октября","ноября","декабря");
var
Present: TDate;      
Year, Month, Day : Word;
begin
Present:= DateTimePicker.Date;
DecodeDate(Present, Year, Month, Day);
Edit1.Text := IntToStr(Day)+ " " +
  Mes[Month] + " "+ IntToStr(Year)+
  " года, ";
end;
Вот так все работает!

Ребята,спасибо вам всем огромное!!!

---

← →
Inovet ©   (2011-08-10 13:47) [14]

> [13] Максон ©   (10.08.11 13:42)
> Edit1.Text := IntToStr(Day)+ " " +
>  Mes[Month] + " "+ IntToStr(Year)+
>  " года, ";

Вот нафига так? Выше не читаем?

---

← →
Anatoly Podgoretsky ©   (2011-08-10 14:47) [15]

> Максон  (10.08.2011 13:07:05)  [5]

А ты что лругого ожидал? Так и не подавай текущую дату, подавай вчерашнею.

---

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

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



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