이성민 wrote:

> SQL Plus에서는 select sysdate from dual; 이 먹거든요..

>

> 그런데.. 프로그램 상에서 불러서 변수에 저장하고 싶은데

> 날짜, 시간 불러오는게 안되네요...

>

> sysdate는 컴포넌트상에서는 에러가 뜨는군요..

> 혹시 아시는 분 계시면 자세히 설명 좀 부탁드려요...





이렇게 하시면 됩니다.



procedure TForm1.Button1Click(Sender: TObject);

var

ToDay: TDate;

ToDayTime: TDateTime;

begin

with Query1 do begin

SQL.Clear;

SQL.Add('select sysdate from dual');

Open;



ToDay := Fields[0].AsDateTime;

ToDayTime := Fields[0].AsDateTime;

Showmessage('오늘은 '+FormatDateTime('yyyy.mm.dd',ToDay)+'입니다.');

Showmessage('지금은 '+FormatDateTime('yyyy"년"mm"월"dd"일" hh"시"mm"분"',ToDay)+' 입니다.');

end;

end;