VPF::Календарь - Форум программистов

gambit

Дата 18.10.2006, 20:27 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Награды: 1

Профиль
Группа: Комодератор
Сообщений: 1359
Регистрация: 25.6.2006
Где: я?

Репутация: нет
Всего: 40

Как мне сделать чтобы DateTimePicker возвращал дату в string но не ввиде '18.10.2006' а
'18 октября 2006' ???

Alexeis

Дата 18.10.2006, 20:37 (ссылка)

(нет голосов)

Загрузка ...

Амеба

Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 109
Всего: 459

Просто формат нужно установить ввиде

Код


  DateTimePicker1.Format := 'ddMMMMyyyy';

--------------------

Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать

gambit

Дата 18.10.2006, 20:48 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Награды: 1

Профиль
Группа: Комодератор
Сообщений: 1359
Регистрация: 25.6.2006
Где: я?

Репутация: нет
Всего: 40

Цитата

Просто формат нужно установить ввиде

код Pascal/Delphi

Код


DateTimePicker1.Format := 'ddMMMMyyyy';

Да все супер, но когда я делаю например

Код


label1.Caption:=datetostr(DateTimePicker1.DateTime);

То в label1 все равно 18.10.2006

Snowy

Дата 18.10.2006, 20:49 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 192
Всего: 484

Получить строку так:

Код


var
  s: string;
begin
  DateTimeToString(s, LongDateFormat, DateTimePicker1.Date);
  Label1.Caption := s;
end;

Сделать так, чтобы пикер так её отображал так:

Код

procedure TForm1.FormCreate(Sender: TObject);
begin
  DateTimePicker1.Format := LongDateFormat;
end;

gambit

Дата 18.10.2006, 20:54 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Награды: 1

Профиль
Группа: Комодератор
Сообщений: 1359
Регистрация: 25.6.2006
Где: я?

Репутация: нет
Всего: 40

Snowy, Огромное спасибо

Zero

Дата 18.10.2006, 21:05 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2169
Регистрация: 23.10.2004
Где: Россия, г. Рязань

Репутация: 8
Всего: 24

Код


procedure TForm1.Button1Click(Sender: TObject);
var
  d : TDateTime;
  s : string;
begin
  d:=now;
  dateTimeToString(s,'dd mmmm yyyy',d);
  label1.Caption := s;
end;

Snowy

Дата 18.10.2006, 21:15 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 192
Всего: 484

Zero, ну это и в справке есть.
Но логичнее выводить, согласно настройкам системы.
То есть в данном случае - LongDateFormat.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »