첫번째 질문은요

DTM_SETFORMAT는 commctrl 유닛에 정의되어 있으니까 uses 구에 추가시키세요..



Uses구에 commctrl를 추가하란 소리죠..



procedure TForm1.FormCreate(Sender: TObject);

begin

DateTimePicker1.DateTime := now();

SendMessage(DateTimepicker1.Handle, DTM_SETFORMAT, 0,

LongInt(Pchar('yyyy-MM-dd hh:mm:ss')));

end;



이런식으로 나타나는 형식을 지정할 수 있어요..



두번째 질문은 아마도 저장할때 시간까지 같이 저장되서 비교할때 시간 비교까지 되서 그럴꺼예요..



시간을 가져오실때 날짜까지만 가져오셔서 비교하세요..



시간까지 같이 가져와서 비교하시지 말고 yyyyMMdd 부분만 가져와서 비교하시면 되요..





초보임다 wrote:

> **********************첫번째****************************

> datetimepicker text에 현재의 yyyy-mm-ss hh:mm:ss까지 표시하고 싶은데, 잘안돼네요.

> dtpdt.DateTime:= strtodatetime(formatdatetime('yyyy-mm-dd hh:mm:ss',now));

> 이렇게 하니 안되더군여

>

> **********************두번째****************************

> datetimepicker두개로 기간동안의 내용 조회하는 건데 시작 datetimepicker의 당일 자료가 안나오는군요. 게시판에 앞에 적혀있는거와 같이한거 같은데 잘안됩니다.

>

> with qursave do

> begin

> Close;

> SQL.Clear;

> SQL.Add('select * from exchange_rate ');

> SQL.Add('where inout_date >= :P_DTPFIR and inout_date <= :P_DTPEND and

> currency = :P_CURRENCY');

> SQL.Add('order by inout_date, currency');

>

> paramByname('P_CURRENCY').AsString := ls_wonkind;

> ParamByName('P_DTPFIR').AsDatetime := dtpfir.datetime;

> ParamByName('P_DTPEND').AsDatetime := dtpend.datetime;

> open;

하나는 잘풀었습니다. 제가 확실히 안보는 바람에 고생했지만...

두번째 질문에 yymmdd로 가져오는데 예좀 부탁드릴수 있을까요?

제 나름대로 해봤지만 에러만 뜨네여



stoney wrote:

> 첫번째 질문은요

> DTM_SETFORMAT는 commctrl 유닛에 정의되어 있으니까 uses 구에 추가시키세요..

>

> Uses구에 commctrl를 추가하란 소리죠..

>

> procedure TForm1.FormCreate(Sender: TObject);

> begin

> DateTimePicker1.DateTime := now();

> SendMessage(DateTimepicker1.Handle, DTM_SETFORMAT, 0,

> LongInt(Pchar('yyyy-MM-dd hh:mm:ss')));

> end;

>

> 이런식으로 나타나는 형식을 지정할 수 있어요..

>

> 두번째 질문은 아마도 저장할때 시간까지 같이 저장되서 비교할때 시간 비교까지 되서 그럴꺼예요..

>

> 시간을 가져오실때 날짜까지만 가져오셔서 비교하세요..

>

> 시간까지 같이 가져와서 비교하시지 말고 yyyyMMdd 부분만 가져와서 비교하시면 되요..

>

>

> 초보임다 wrote:

> > **********************첫번째****************************

> > datetimepicker text에 현재의 yyyy-mm-ss hh:mm:ss까지 표시하고 싶은데, 잘안돼네요.

> > dtpdt.DateTime:= strtodatetime(formatdatetime('yyyy-mm-dd hh:mm:ss',now));

> > 이렇게 하니 안되더군여

> >

> > **********************두번째****************************

> > datetimepicker두개로 기간동안의 내용 조회하는 건데 시작 datetimepicker의 당일 자료가 안나오는군요. 게시판에 앞에 적혀있는거와 같이한거 같은데 잘안됩니다.

> >

> > with qursave do

> > begin

> > Close;

> > SQL.Clear;

> > SQL.Add('select * from exchange_rate ');

> > SQL.Add('where inout_date >= :P_DTPFIR and inout_date <= :P_DTPEND and

> > currency = :P_CURRENCY');

> > SQL.Add('order by inout_date, currency');

> >

> > paramByname('P_CURRENCY').AsString := ls_wonkind;

> > ParamByName('P_DTPFIR').AsDatetime := dtpfir.datetime;

> > ParamByName('P_DTPEND').AsDatetime := dtpend.datetime;

> > open;