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일 이전을 선택했을 때에만 에러메세지가 나온다던지, 오늘 이후를 선택했을때만 에러메세지가 나온다던지...



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



도와주세요... ^^



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



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