Q&A

  • 다음달은 어떻게....
Combobox1.text := '200111' 값이 있을때

이 값을 다음달 '200112'로 바꾸는 방법이 없나요?



무조건 다음달의 값을 가지고 싶은데.....





부탁드립니다...

2  COMMENTS
  • Profile
    김용호 2001.11.20 21:30
    저는 이렇게 합니다.

    Edit1.Text := FormatDateTime('YYYYMM',StrToDate(Copy(Combobox1.Text,1,4)+'-'+

    Copy(Combobox1.Text,5,2)+'-'+'20')+30);

    임의의 날자 20일로 설정을 한 다음에 30을 더하면 무조건 다음달이 되겠지요.

    '2001-11-20'을 Date로 변경한후 30일을 더하면 '2001-12-20'일이 되고

    필요한 문자만 축출하면 끝.





    지니 wrote:

    > Combobox1.text := '200111' 값이 있을때

    > 이 값을 다음달 '200112'로 바꾸는 방법이 없나요?

    >

    > 무조건 다음달의 값을 가지고 싶은데.....

    >

    >

    > 부탁드립니다...

  • Profile
    홍성락 2001.11.20 11:43
    지니 wrote:

    > Combobox1.text := '200111' 값이 있을때

    > 이 값을 다음달 '200112'로 바꾸는 방법이 없나요?

    >

    > 무조건 다음달의 값을 가지고 싶은데.....

    >

    >

    > 부탁드립니다...

    /////////////////////////////////////////////////

    var

    HYear, HMonth : Word;

    HDate : TDateTime;

    begin

    //HDate := StrToDate(Edit3.Text);

    HYear := StrToint(copy(Edit3.Text,1,4));

    HMonth:= StrToint(copy(Edit3.Text,5,2));

    HDate := EncodeDate(HYear, HMonth, 1);

    HDate := HDate + 31; //일단 무조건 31일이면 다음달로 바뀌게함

    Edit3.Text := FormatDateTime('YYYYMM',HDate);

    end;