Q&A

  • 12월은 몇일까지 있나요?
특정 월을 입력받아...

몇일까지 있는지 알고 싶은데....


2002년 1월 ->31

2002년 2월 -> 28

2002년 5월 -> 31

일케 구하고 시픈뎅....어짜지요?
4  COMMENTS
  • Profile
    프리맨 2002.11.27 18:22

    이런방법도 있습니다.

    Days:=MonthDays[IsLeapYear(2002),12];
  • Profile
    김해우 2002.11.27 00:51

    function TForm1.DataEndofMonth(D:TDateTime): TDateTime;
    var
       Year,Month,Day: word;
    begin
      DecodeDate(D,Year,Month,Day);
      if Month =12 then
      begin
          Inc(Year);
          Month :=1;
       end
       else
         Inc(Month);
       Result := EnCodeDate(Year,Month,1) -1;
    end;

    이렇게해보세요..

  • Profile
    하얀까마귀 2002.11.27 00:50
    간단하게 하자면..
    다음월의 1일에서 하루를 빼주면 마지막 날이 구해질것 같은데..

  • Profile
    최은석 2002.11.27 00:49
    오라클 사용하신다면 LAST_DAY 함수를 사용하시면 됩니다..
    이넘은 특정일이 속한 달의 마지막 날자를 리턴합니다..

    select TO_CHAR( LAST_DAY(날자),'DD') from dual
    요렇게 하심 월의 마지막이 몇일인지 알수있겠져?