윤수경 wrote:

> "datetostr(date)"를 하면 시스템의 날짜를 "YYYY-MM-DD" 형식으러 보여 줍니다...

>

> 이것을 3개의 edit에 나누어 보여 주려합니다...

>

> "YYYY", "MM", "DD" 이케 따러 분리를 시키려면 어케하면 됨니까여... ㅠ.ㅠ

>

> 아시는 분 쉽게 쩜 갈카 주세염...



다음코드의 반대로 해주면 되겠네요.



var

aYear, aMonth, aDay, aDate:string;

bYear, bMonth, bDay, bDate:string;

sbDate, saDate:TDateTime;

iGapDays:integer;

begin

aDate:=maskedit1.text; //20000301(aDate)

bDate:=maskedit2.text; //20000411(bDate)

//----10001010형식을--"1000-10-10"형식으로변환----------------

aYear:=copy(aDate,1,4); //2000

aMonth:=copy(aDate,5,2); //03

aDay:=copy(aDate,7,2); //01

aDate:=aYear+'-'+aMonth+'-'aDay; //2000-03-01

bYear:=copy(bDate,1,4); //2000

bMonth:=copy(bDate,5,2); //04

bDay:=copy(bDate,7,2); //01

bDate:=bYear+'-'+bMonth+'-'bDay; //2000-04-11

//-------------예외처리(시작)----------------------------------

try

saDate:=StrToDateTime(aDate)

except begin

Application.MessageBox('유효하지 못한 날짜를 입력하셨습니다'

,'첫번째날짜입력란', mb_ok);

exit; end;



try

sbDate:=StrToDateTime(bDate)

except begin

Application.MessageBox('유효하지 못한 날짜를 입력하셨습니다'

,'두번째날짜입력란', mb_ok);

exit; end;

//-------------예외처리(끝)-----------------------------------

iGapDays:=GetGapDays(sbDate,saDate);

ShowMessage(IntToStr(iGapDays));

end;



위에건 분리하는거구요. 그 반대로 하시면 됩니다. 엥? --;



아니면,

formatdatetiem('yyyy',..)+f...('mm',..)+f..(dd, ..)이렇게 하면됩니다.

아구구, 제가 지금 intoxicated해가지골랑.. 위에 보시면.. 해결될겁니당. -.-;

윤수경 wrote:

> "datetostr(date)"를 하면 시스템의 날짜를 "YYYY-MM-DD" 형식으러 보여 줍니다...

>

> 이것을 3개의 edit에 나누어 보여 주려합니다...

>

> "YYYY", "MM", "DD" 이케 따러 분리를 시키려면 어케하면 됨니까여... ㅠ.ㅠ

>

> 아시는 분 쉽게 쩜 갈카 주세염...





decodedate나 decodetime 같은거 이용하면 되것네요.. 쩝...







procedure TForm1.Button1Click(Sender: TObject);



var

Present: TDateTime;

Year, Month, Day, Hour, Min, Sec, MSec: Word;

begin

Present:= Now;

DecodeDate(Present, Year, Month, Day);

Label1.Caption := 'Today is Day ' + IntToStr(Day) + ' of Month '

+ IntToStr(Month) + ' of Year ' + IntToStr(Year);

DecodeTime(Present, Hour, Min, Sec, MSec);

Label2.Caption := 'The time is Minute ' + IntToStr(Min) + ' of Hour '

+ IntToStr(Hour);

end;



행복하셔요.. 규춘올림.