hopeship wrote:

> 안녕하십니까

> 대구에 사는 hopeship입니다.

> 다름이 아니라 시스템 날짜를 얻는 방법을 모르겠네요.

> 즉 현재 날짜가 1999년 10월 18일이라면 여기서 '1999'과 '10'과 '18'을 각각 string

> 변수에 담을려면 어떻게 해야하는건지요.

> 예전에 now함수를 써서 했는것 같은데 막상 쓸려고 하닌 제가 생각한 포맷으로 나오질

> 않더군요.

> 도사님들의 조언 부탁드립니다.

>

>



Database 를 어떤걸 사용하시느지 몰라 Oracle로 설명합니다.



procedure TForm1.FormShow(Sender: TObject);

var

Year, Month, Day : String;

begin

with QTime do

begin

Close;

Sql.clear;

Sql.Add(' Select To_Char(Sysdate,''YYYY'') Year, ');

Sql.Add(' To_Char(Sysdate,''MM'') Month, ');

Sql.Add(' To_Char(Sysdate,''DD'') Day ');

Sql.Add(' From Dual ');

Open;

Close;

end;



Year := IntToStr(FieldByName('year').AsInteger);

Month := IntToStr(FieldByName('Month').AsInteger);

Day := IntToStr(FieldByName('Day').AsInteger);



end;



이정도면 되겠습니까?

hopeship wrote:

> 안녕하십니까

> 대구에 사는 hopeship입니다.

> 다름이 아니라 시스템 날짜를 얻는 방법을 모르겠네요.

> 즉 현재 날짜가 1999년 10월 18일이라면 여기서 '1999'과 '10'과 '18'을 각각 string

> 변수에 담을려면 어떻게 해야하는건지요.

> 예전에 now함수를 써서 했는것 같은데 막상 쓸려고 하닌 제가 생각한 포맷으로 나오질

> 않더군요.

> 도사님들의 조언 부탁드립니다.

>

>



< 답변 >

시스템 날짜를 얻기위해서 date 함수를 이용하고요

데이트타입이 다르므로 스트링으로 전환하기위해 datetostr( ) 을 사용하고

각각의 변수에 저장하기 위해서는 copy 명령어를 사용하면 원하시는 작업을

할수 있습니다. 열심히 하세요