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

← →
Максон © (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 не спасет?

FormatDateTime ещё.

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

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;
Вот так все работает!

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

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

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

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

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

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