**********************첫번째****************************
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;
DTM_SETFORMAT는 commctrl 유닛에 정의되어 있으니까 uses 구에 추가시키세요..
procedure TForm1.FormCreate(Sender: TObject);
begin
DateTimePicker1.DateTime := now();
SendMessage(DateTimepicker1.Handle, DTM_SETFORMAT, 0,
LongInt(Pchar('yyyy-MM-dd hh:mm:ss')));
end;
이런식으로 나타나는 형식을 지정할 수 있어요..
두번째 질문은 아마도 저장할때 시간까지 같이 저장되서 비교할때 시간 비교까지 되서 그럴꺼예요..
시간을 가져오실때 날짜까지만 가져오셔서 비교하세요..
초보임다 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;
>