한개의 변수를 이용해서 오늘 날짜와 시간을 구할 수 있습니다.



코딩은 다음과 같습니다.



procedure TForm1.Button1Click(Sender: TObject);

var

nDateTime : TDateTime; // 변수를 날짜시간타입으로 설정

begin

nDateTime:= Now;

Edit1.Text := FormatDateTime('yyyy-mm-dd',nDateTime);

// Edit1.Text 에는 2000-03-03 과 같은 형식으로 들어값니다.

// 물론 결과값은 문자열이구요

// 만일 날짜/시간 타입을 원하시면 nDateTime을 그냥 사용하시면 됩니다.



Edit2.Text := FormatDateTime('hh:mm:ss',nDateTime);

// Edit2.Text 에는 12:10:11형식으로 들어값니다.



end;





이수정 wrote:

> 안녕하세요...

>

> DateTimePicker 라는 컴포넌트를 이용해서 날짜와 시간을 구할수는 있던데..

>

> 이거 말고.. 그냥 오늘 날짜와 시간을 구하는 함수는 없나요???

>

> 없다면....

>

> DateTimePicker 에서 날짜를 읽어 올때 컴퓨터의 설정에 따라...

>

> YYYY-MM-DD 와 YY-MM-DD 가 결정되는것 같던데..

>

> 강제적으로 프로그램안에서 포맷을 정해줄 수는 없나요???

>

> 음.... 아무튼.. 오늘 날짜와 시간을 구할 수 있는 방법을 알려 주세요~~!!!

>

>

이수정 wrote:

> 안녕하세요...

>

> DateTimePicker 라는 컴포넌트를 이용해서 날짜와 시간을 구할수는 있던데..

>

> 이거 말고.. 그냥 오늘 날짜와 시간을 구하는 함수는 없나요???

>

> 없다면....

>

> DateTimePicker 에서 날짜를 읽어 올때 컴퓨터의 설정에 따라...

>

> YYYY-MM-DD 와 YY-MM-DD 가 결정되는것 같던데..

>

> 강제적으로 프로그램안에서 포맷을 정해줄 수는 없나요???

>

> 음.... 아무튼.. 오늘 날짜와 시간을 구할 수 있는 방법을 알려 주세요~~!!!

>

>



검색을 항상 활용하시면 자신의 실력향상에도 많은 도움이 되지요.

팁모아에 가셔서 날짜관련 팁들을 찾아보세요.

많은 자료를 얻으실 수 있을 겁니다.

그럼~ 즐거운 프로그래밍 하시길~