TDateTimePicker의 OnCloseUp Event에 사용해보세요.



If (Now - 7 > dtp.DateTime) Or (dtp.DateTime > Now + 6) Then

begin

ShowMessage('Error');

dtp.DateTime := Now;

end;







김매경 wrote:

> TDateTimePicker를 사용할때...

>

> TDateTimePicker를 사용해서 검색하고자 하는 날짜를 입력 받으려고 하거든요...

>

> 그런데 조건이 프로그램을 실행하고 있는 당일을 기준으로 일주일만 검색가능하게 할꺼예요...

>

> 오늘이 12월 3일이니까, 11월 27일부터 12월 3일까지만 선택할 수 있게...

>

> 만약, 이 사이의 날짜가 아닌 날을 선택하면, 에러메세지를 뿌려주고, 다시 받을 수 있게...

>

> 그래서 if문을 사용해봤는데... 범위를 정하는 일이 쉽지 않네요...

>

> (하... 이런 소스 보이기 정말 부끄럽지만...;;;) 이렇게 해 봤거든요...

>

> procedure TF_TranStat.FormShow(Sender: TObject);

> begin

> PicDate.Date := Now; // 사용자가 날짜를 선택하는 컴포넌트

> nowtest.Date := Now; // 프로그램 실행시에는 nonVisible

> test.Date := Now-6; // 프로그램 실행시에는 nonVisible

> BtnViewClick(Nil);

> end;

>

> procedure TF_TranStat.BtnViewClick(Sender: TObject);

> begin

> if Not( test.Date <= PicDate.Date) and ( PicDate.Date <= nowtest.Date )then

> ShowMessage('7일 이전의 날짜만 입력하세요.')

> end;

>

> 7일 이전 날짜 선택을 하면 에러메세지가 나오지만...

>

> 오늘 이후의 날짜를 선택하면, 에러 메세지가 나오지 않아요...

>

> 어떻게 하면 좋죠?

>

> 이렇게 저렇게 바꿔 가면서 해봐도...

>

> 조건은 하나만 먹더라구요... 7일 이전을 선택했을 때에만 에러메세지가 나온다던지, 오늘 이후를 선택했을때만 에러메세지가 나온다던지...

>

> 좋은 방법 알고 계시는 분...

>

> 도와주세요... ^^

>

> 그럼 맛있는 점심 드시구여...

>

> 행복한 하루 보내세요...^^

>