Q&A

  • 달의 마지막 날짜 알아내는 거 갈켜주세요
해당 달의 마지막 날짜를 알아내는 알고리즘 갈켜주세요..
규칙을 모르겠네...요..(__);
이 게시물을
2  COMMENTS
  • Profile
    장명선 • 2002.02.16 01:31
    날짜에서 -1 를 하면 될것 같은데요

    StrToDate('2002/03/01) - 1 이렇게 하면 2월달 마지막 날짜가 나옵니다.

    그럼 즐코하세요

  • Profile
    강인규 • 2002.02.15 22:00

    팁에 찾아보시면 많이 있는데..-_-;;

    function GetLastDate(Year, Month : Word): Word;
    begin
      case Month of
        1, 3, 5, 7, 8, 10, 12 : Result := 31;
        4, 6, 9, 11 : Result := 30;
        2 : if IsLeapYear(Year) then Result := 29 else Result := 28;
      end;
    end;

    IsLeapYear는 델파이5부터인가 추가되었을껍니다.

    function IsLeapYear(Year: Word): Boolean;
    begin
      Result := (Year mod 4 = 0) and ((Year mod 100 <> 0) or (Year mod 400 = 0));
    end;
←First Page
1128 1129 1130 1131 1132 1133 1134 1135 1136 1137
Last Page→
한델 로그인 하기