mad wrote:

> EDIT1, EDIT2, Combobox1에서

>

> Edit1에다가 날짜를 입력하고

> Combobox1에서 1부터 30의 수 중에 하나를 선택하면

> Edit2에 자동으로 날짜를 증가시켜서 나타내 주는 것입니다.

>

> Edit1의 입력은 2000-03-11의 형태로 넣으면

> Combobox1에서는 1~30의 수(일) 중에 27일을 선택하면

> Edit2에서는 자동으로 2000-04-06이라고 입력되게 하고 싶습니다.

>

> 그런데 날짜의 증가는 어떻게 하는 것입니까?

> 날짜관련 팁이나 강좌에서는 날짜를 직접적으로 증가시키는 것은 없더군요.

> 달마다 일수가 다른 것은 어떻게 처리를 해야 합니까?

>

> 제가 초보라 막연한 답변은 알아듣지 못합니다.

> 소스와 함께 자세한 설명 부탁드립니다.

>

> 책에는 왜 날짜관련에 대해 자세히 나와 있지 않은 건지...

> 전문가님들의 도움을 기다리겠습니다.

>

>



날짜형은 연산을 지원하는 걸루 알고 있습니다

우선 날짜

>

> 날짜형은 연산을 지원하는 걸루 알고 있습니다

> 우선 날짜

날짜형은 제어판의 속성를 따라갑니다.

하지만 일반적으로 Dateseperator '/'나 '-'는 호환 되므로 어느것을 써도 상관없습니다. 만약 고정된 날짜 Format이라면 다음과 같이 하세요



procedure DateAdd;

var

Year, Month, Day: Word;

begin

Year := StrToInt(Copy(Edit1.Text, 1, 4));

Month := StrToInt(Copy(Edit1.Text, 6, 2));

Day := StrToInt(Copy(Edit1.Text, 9, 2));

Edit2.Text := DateToStr(EncodeDate(Year, Month, Day) + StrToInt(ComboBox1.Text));

end;

간단함 edit1.text := datetostr(strtodate(edit1.text)+27);

위와 같은 방법으로 처리하면 됨

날짜 연산를 한번 해보세요.. '-'도 가능함....

좋은 하루..

mad wrote:

> EDIT1, EDIT2, Combobox1에서

>

> Edit1에다가 날짜를 입력하고

> Combobox1에서 1부터 30의 수 중에 하나를 선택하면

> Edit2에 자동으로 날짜를 증가시켜서 나타내 주는 것입니다.

>

> Edit1의 입력은 2000-03-11의 형태로 넣으면

> Combobox1에서는 1~30의 수(일) 중에 27일을 선택하면

> Edit2에서는 자동으로 2000-04-06이라고 입력되게 하고 싶습니다.

>

> 그런데 날짜의 증가는 어떻게 하는 것입니까?

> 날짜관련 팁이나 강좌에서는 날짜를 직접적으로 증가시키는 것은 없더군요.

> 달마다 일수가 다른 것은 어떻게 처리를 해야 합니까?

>

> 제가 초보라 막연한 답변은 알아듣지 못합니다.

> 소스와 함께 자세한 설명 부탁드립니다.

>

> 책에는 왜 날짜관련에 대해 자세히 나와 있지 않은 건지...

> 전문가님들의 도움을 기다리겠습니다.

>

>