왕초짜 wrote:

> 안녕하세요...

> 궁금한게 있어서 질문드립니다.

> 에디트박스 3개로 년, 월, 일을 입력받았구요

> 이걸 날짜방식으로 어케 바꾸는지요?

> ex) box1 : 2000, box2 : 1, box3 : 9 -> 20000109

> 쉬운거 같으면서도 어렵군요...

> 아시는 분있으면 답 좀 주세요 ^^

>



안녕하셔요!

저도 초짜지만 아는데로 하지요! 히~!

날짜를 쪼개는 것은 DecodeDate함수를 쓰면 되지요

다음은 오늘의 날짜를 쪼개는 것이지요!

var

Present: TDateTime;

Year, Month, Day : Word;

begin

Present:= Now;

DecodeDate(Present, Year, Month, Day);

Label1.Caption := IntToStr(Year)+'년'+IntToStr(Month)+'달'+IntToStr(Day)+'일 입니다.';

end;



쪼개진 날짜를 합치는 함수는 EncodeDate 이지요!

var

MyDate: TDateTime;

begin

MyDate := EncodeDate(1998, 12, 1);

Label1.Caption := DateToStr(MyDate);

end;



그리하여 MyDate := EncodeDate(strtoint(edit1.Text),strtoint(edit2.Text ),strtoint(edit3.Text) );

이런식으로 해도 돼는되요! 히~!



행복하셔요! 대전에서....

MyDate:=EncodeDate(strtoint(ed1.Text),strtoint(ed2.Text ),strtoint(ed3.Text) );



요렇게 하니까 년도가 짤리는군요 (ed1 : 2000, ed2 :01, ed3 : 01 -> 00-01-01)

그냥 붙여서 20000101이 되게 하는 방법은요?

왕초짜 wrote:

> MyDate:=EncodeDate(strtoint(ed1.Text),strtoint(ed2.Text ),strtoint(ed3.Text) );

>

> 요렇게 하니까 년도가 짤리는군요 (ed1 : 2000, ed2 :01, ed3 : 01 -> 00-01-01)

> 그냥 붙여서 20000101이 되게 하는 방법은요?

>



제어판의 국가별설정에서 날짜의 형식을 살펴보십시오. yyyy-MM-dd로 형태로 되어있지 않으면 위와 같은 현상이 일어납니다.

yyyy는 년도를 네자리로 나타나게 합니다.

왕초짜 wrote:

> 안녕하세요...

> 궁금한게 있어서 질문드립니다.

> 에디트박스 3개로 년, 월, 일을 입력받았구요

> 이걸 날짜방식으로 어케 바꾸는지요?

> ex) box1 : 2000, box2 : 1, box3 : 9 -> 20000109

> 쉬운거 같으면서도 어렵군요...

> 아시는 분있으면 답 좀 주세요 ^^

>



StrToDate이나 EncodeDate함수를 이용해 보세요.



var



D:TDate;



D:= StrToDate(box1.Text+'-'+box2.Text+'-'+box3.Text);

//또는

D:= EncodeDate(StrToInt(box1.Text),StrToInt(Box2.Text),StrToInt(box3.Text));

다음과 같이 FormatDateTime함수를 이용하세요



FormatDateTime('yyyymmdd', StrToDate(Box1.Text+'-'+Box2.Text+'-'+ Box3.Text);



왕초짜 wrote:

> 안녕하세요...

> 궁금한게 있어서 질문드립니다.

> 에디트박스 3개로 년, 월, 일을 입력받았구요

> 이걸 날짜방식으로 어케 바꾸는지요?

> ex) box1 : 2000, box2 : 1, box3 : 9 -> 20000109

> 쉬운거 같으면서도 어렵군요...

> 아시는 분있으면 답 좀 주세요 ^^

>

최용일 wrote:

> 다음과 같이 FormatDateTime함수를 이용하세요

>

> FormatDateTime('yyyymmdd', StrToDate(Box1.Text+'-'+Box2.Text+'-'+ Box3.Text);

>



위와 같이 했더니 이런 에러가 나는데요?

뭣땜에 그렇지요? T_T



procedure Tflye0101.BitBtn1Click(Sender: TObject);

var x, y : Tdate;

begin

x := EncodeDate(StrToInt(Ed_yy.Text),strtoint(Ed_mm.Text),StrToInt(Ed_dd.Text));

y := Formatdatetime('yyyymmdd', x);

end;



[Error] lye0101.pas(234): Incompatible types: 'TDate' and 'String'

당연히 에러가 날수밖에 없습니다.

FormatDateTime은 TDate형을 돌려주는게 아니라 날짜의 문자열을 돌려주니까요..

만일 버튼을 클릭했을때 20000101 이런 형식의 날짜를 Label1에 출력한다면



procedure Tflye0101.BitBtn1Click(Sender: TObject);

var

X: TDate;

begin

X := EncodeDate(StrToInt(Ed_yy.Text),strtoint(Ed_mm.Text),StrToInt(Ed_dd.Text));

Label1.Caption := FormatDateTime('yyyymmdd, X);

end;



EncodeDate보다는 StrToDate가 더 쓰시기에는 좋다고 생각하는데... EncodeDate를

쓰시면 굳이 스트링을 정수로 안 바꾸시고도 바로 사용이 가능합니다.







> procedure Tflye0101.BitBtn1Click(Sender: TObject);

> var x, y : Tdate;

> begin

> x := EncodeDate(StrToInt(Ed_yy.Text),strtoint(Ed_mm.Text),StrToInt(Ed_dd.Text));

> y := Formatdatetime('yyyymmdd', x);

> end;

>



왕초짜 wrote:

> 최용일 wrote:

> > 다음과 같이 FormatDateTime함수를 이용하세요

> >

> > FormatDateTime('yyyymmdd', StrToDate(Box1.Text+'-'+Box2.Text+'-'+ Box3.Text);

> >

>

> 위와 같이 했더니 이런 에러가 나는데요?

> 뭣땜에 그렇지요? T_T

>

> procedure Tflye0101.BitBtn1Click(Sender: TObject);

> var x, y : Tdate;

> begin

> x := EncodeDate(StrToInt(Ed_yy.Text),strtoint(Ed_mm.Text),StrToInt(Ed_dd.Text));

> y := Formatdatetime('yyyymmdd', x);

> end;

>

> [Error] lye0101.pas(234): Incompatible types: 'TDate' and 'String'

왕초짜 wrote:

> 최용일 wrote:

> > 다음과 같이 FormatDateTime함수를 이용하세요

> >

> > FormatDateTime('yyyymmdd', StrToDate(Box1.Text+'-'+Box2.Text+'-'+ Box3.Text);

> >

>

> 위와 같이 했더니 이런 에러가 나는데요?

> 뭣땜에 그렇지요? T_T

>

> procedure Tflye0101.BitBtn1Click(Sender: TObject);

> var x, y : Tdate;

> begin

> x := EncodeDate(StrToInt(Ed_yy.Text),strtoint(Ed_mm.Text),StrToInt(Ed_dd.Text));

> y := Formatdatetime('yyyymmdd', x);

> end;

>

> [Error] lye0101.pas(234): Incompatible types: 'TDate' and 'String'





해당의 에러메세지는 타입문제입니다.

위의 선언구문중 y의 값은 string형으로 바꾸면 됩니다.

var

x : Tdate;

y : String;