Q&A

  • 특정월의 마지막 날짜를 가져오는 방법 좀..부탁합니다
디베에서 스트링형식으로 되어있는 데이터를 델파이 텍스트박스에 가져왔습니다

예) 200302

의 데이터를  가지고 그달의 마지막 날짜를 가저오구 싶습니다.

어떻게 하나여?

다른 날짜관련 자료들은 찾기쉬운데

이번건은 잘 못찾겠네요

고수님들 부탁 드립니다.
4  COMMENTS
  • Profile
    이병훈 2003.03.14 10:16
    안녕하세요.

    그냥 참고 삼아 적어 봅니다.

    만약 oracle을 사용하신다면

    select  last_day(sysdate) from dual

    이렇게 하시면 얻으실수 있습니다.

    그럼 수고하세요

  • Profile
    김영철 2003.03.29 02:47
    select  to_char(last_day(to_date('200302','yyyy-mm')),'yyyymmdd') from dual;
    =>20030228 (결과값)
    덕분에 last_day도 써보네요...
    Good 이당.....

  • Profile
    김영대 2003.03.14 06:18
    // 안녕하세요  김영대(http://www.howto.pe.kr) 입니다
    // 제 홈페이지의 Delphi Tip&Trick 에서 "날짜" 로 검색해 보시면
    // 도움이 되만한 자료가 몇개 있습니다. 참고해 보세요

    function Get_LastDay(yyyy,mm: Integer): Integer;
    var
    MyDate: TDateTime;
    Convert_OK: Boolean;
    dd: Integer;
    begin
    Convert_OK := True;
    dd := 28;
    while Convert_OK do
    begin
       try
         MyDate := EncodeDate(yyyy, mm, dd);
       except
         on EConvertError do
            Convert_OK := False;
       end;
       if Convert_OK then
         Inc(dd)
       else
         Dec(dd);
    end;
    Get_LastDay := dd;
    end;
  • Profile
    한영관 2003.03.27 03:34
    안녕하세염..
    간단히 코딩해봤어요..
    function ThisMonthLast : TDateTime;
    var
      Y, M, D : word;
    begin
      DecodeDate(Date, y, m , d);
      Inc(M);
      if m > 12 then begin
        Inc(Y);
        m  := 1;
      end;
      Resutl := EncodeDate(y,m,d) -1;
    end;
      
    (*......................... 즐거운 하루 되세요 ............................*)