이영민 wrote:

> DateTimePicker1.date := now();

> 이렇게 하면 오늘로 셋팅이되는데요

> 이전날은 어떻게 합

아예소스부분을 올렸습니다

왜 안되는지 몰라서 소스도 올렸는데 왜 안되는지 정말모르겠어요

부디 해결책좀 가르쳐주세요

DateTimePicker1.date에서는 오늘도 잘초기화가되는데

DateTimePicker2.date 은 왜 안되는지모르겠어요

부디 명확한 답변부탁드립니다

procedure TBK0011Frm.FormCreate(Sender: TObject);

begin

DateTimePicker1.Format := 'yyyy-MM-dd';

DateTimePicker1.date := now();

DateTimePicker2.Date := DateTimePicker1.Date-1;

end;







홍성락 wrote:

> 이영민 wrote:

> > DateTimePicker1.date := now();

> > 이렇게 하면 오늘로 셋팅이되는데요

> > 이전날은 어떻게 합

이렇게 해보세요.

procedure TBK0011Frm.FormCreate(Sender: TObject);

begin

DateTimePicker1.Format := 'yyyy-MM-dd';

DateTimePicker1.date := now();

double(DateTimePicker2.Date) := double(DateTimePicker1.Date)-1;

end;



이영민 wrote:

> 아예소스부분을 올렸습니다

> 왜 안되는지 몰라서 소스도 올렸는데 왜 안되는지 정말모르겠어요

> 부디 해결책좀 가르쳐주세요

> DateTimePicker1.date에서는 오늘도 잘초기화가되는데

> DateTimePicker2.date 은 왜 안되는지모르겠어요

> 부디 명확한 답변부탁드립니다

> procedure TBK0011Frm.FormCreate(Sender: TObject);

> begin

> DateTimePicker1.Format := 'yyyy-MM-dd';

> DateTimePicker1.date := now();

> DateTimePicker2.Date := DateTimePicker1.Date-1;

> end;

>

>

>

> 홍성락 wrote:

> > 이영민 wrote:

> > > DateTimePicker1.date := now();

> > > 이렇게 하면 오늘로 셋팅이되는데요

> > > 이전날은 어떻게 합

잘되는데요. 물론 Format속성은 없을텐데요. 버전이 틀린가요.

혹시 maxdate나 mindate엔 값이 없겠죠.

어떻게 안나오는지 궁금합니다.

일단 윈도우의 시스템 날짜형식과 틀리다면

강제로 아래처럼 바꾸시고요(유닛에 commctrl추가하세요)

SendMessage(DateTimepicker2.Handle, DTM_SETFORMAT, 0, LongInt(Pchar('yyyy-MM-dd')));



또는 시스템과 무관하게(Year, Month, Day: Word;)

DecodeDate(DateTimePicker1.date, Year, Month, Day);

DateTimePicker2.Date := EncodeDate(Year, Month, Day-1);





그리고 DateTimePicker1의 이전날이면 1을 빼고

다음날이면 1을 더하면되는데요.

////////////////////////////////////////////////////////////////

이영민 wrote:

> 아예소스부분을 올렸습니다

> 왜 안되는지 몰라서 소스도 올렸는데 왜 안되는지 정말모르겠어요

> 부디 해결책좀 가르쳐주세요

> DateTimePicker1.date에서는 오늘도 잘초기화가되는데

> DateTimePicker2.date 은 왜 안되는지모르겠어요

> 부디 명확한 답변부탁드립니다

> procedure TBK0011Frm.FormCreate(Sender: TObject);

> begin

> DateTimePicker1.Format := 'yyyy-MM-dd';

> DateTimePicker1.date := now();

> DateTimePicker2.Date := DateTimePicker1.Date-1;

> end;



> 홍성락 wrote:

> > 이영민 wrote:

> > > DateTimePicker1.date := now();

> > > 이렇게 하면 오늘로 셋팅이되는데요

> > > 이전날은 어떻게 합