Q&A

  • 해당 월의 마지막날은???
1월의 마지막날 ...
2월의 마지막날....
....
8월의 마지막날은....31일

이렇게 월의 마지막 날을 구하는 함수가 없나요???

^0^;;
이 게시물을
2  COMMENTS
  • Profile
    별볼일없는 • 2003.08.12 05:25


    저 같은 경우에는 현재 일에 + 1달을 합니다.
    a := datetostr(IncMonth(Now)) ;
    다음달 1일을 만들어서
    b := copy(a,1,7)+ '/01' ;
    하루를 빼줍니다.
    c := datetostr(strtodate(a) - 1) ;

    제가 올린것은 2월달이 27일도 있거든요 복잡하게 함수 쓰지말고 간단하게 응용하면 될거 같아서요 아! 그리고
       SysUtils.ShortDateFormat := 'YYYY/MM/DD';
       SysUtils.DateSeparator     := '/';
    를 했기때문에 자리수는 시스템에 따라 달라도 가능합니다.
  • Profile
    전덕성 • 2003.08.12 01:34
    function DaysPerMonth(AYear, AMonth: Integer): Integer;  
    const
      DaysInMonth: array[1..12] of Integer = (31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31);
    begin
      Result := DaysInMonth[AMonth];
      if (AMonth = 2) and IsLeapYear(AYear) then Inc(Result); { leap-year Feb is special }
    end;
    아마 이 함수 사용하면 될 겁니다....
←First Page
590 591 592 593 594 595 596 597 598 599
Last Page→
한델 로그인 하기