ограничение даты - Компоненты Delphi

Alexi · 20.04.2009, 22:50

Добрый вечер! подскажите пожалуйста как сделать чтобы при выборе даты в datetimepicker, минимальному значению соответствовало первое число в выбраном месяце ,а MaX последнее?

Скандербег · 21.04.2009, 01:10

Код:

var D : TDateTime;
begin
  //начало месяца
  DateTimePicker1.MinDate := StartOfTheMonth(DateTimePicker1.Date);
  //конец месяца
  D := IncMonth(DateTimePicker1.MinDate);
  DateTimePicker1.MaxDate := IncDay(D, -1);
end;

Alexi · 21.04.2009, 12:08

выдает ошибку
[Ошибка] UDvmat.pas(370): Undeclared identifier: 'StartOfTheMonth'
[Ошибка] UDvmat.pas(373): Undeclared identifier: 'IncDay'

Terran · 21.04.2009, 12:51

Цитата:

Сообщение от Alexi

выдает ошибку
[Ошибка] UDvmat.pas(370): Undeclared identifier: 'StartOfTheMonth'
[Ошибка] UDvmat.pas(373): Undeclared identifier: 'IncDay'

Просто добавьте модуль DateUtils.

Код:

Uses
   DateUtils,...

Alexi · 21.04.2009, 13:09

спасибо уже разобрался

20.04.2009, 22:50	#1
Alexi Пользователь Регистрация: 04.03.2009 Сообщений: 25	ограничение даты Добрый вечер! подскажите пожалуйста как сделать чтобы при выборе даты в datetimepicker, минимальному значению соответствовало первое число в выбраном месяце ,а MaX последнее?

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
не получается ограничение	KARUSHEV	Помощь студентам	11	24.03.2009 14:13
Ограничение повторов	ТРОЯН=)	Помощь студентам	5	06.03.2009 09:11
ограничение по времени	bunner	Помощь студентам	4	05.02.2009 21:31
Ограничение текста в RichEdit1	Polotenchik	Общие вопросы Delphi	4	04.12.2008 20:02
Ограничение ввода в Edit	Макс84	Компоненты Delphi	7	23.07.2007 09:38

21.04.2009, 12:08	#3
Alexi Пользователь Регистрация: 04.03.2009 Сообщений: 25	выдает ошибку [Ошибка] UDvmat.pas(370): Undeclared identifier: 'StartOfTheMonth' [Ошибка] UDvmat.pas(373): Undeclared identifier: 'IncDay'

21.04.2009, 13:09	#5
Alexi Пользователь Регистрация: 04.03.2009 Сообщений: 25	спасибо уже разобрался