Q&A

  • 현재 달에 마지막 날짜를 어떻게 구할수 있을까요?
그러니까..

예를 들어서. 오늘이 12월이면 12월달에 마지막 날짜가 30일인지 31일인지,,,

아니면 2월 같으면 29일인지 이런것을 어떻게 알수 있을까요?

알려주세요.....ㅠ.ㅠ

이 게시물을
1  COMMENTS
  • Profile
    권경미 • 2000.12.14 20:11
    function dateEndOfMonth(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);



    {월의 다음월의 시작일에서 1을 뺀다}

    Result := EncodeDate(Year, Month, 1) - 1;



    end;



    이런 함수를 사용하면 되겠죠? ^^



    어느분이 올리신 함수를 퍼왔어요...넘 나무라지 마시길...^^



    구럼 즐푸 하세요~
←First Page
2053 2054 2055 2056 2057 2058 2059 2060 2061 2062
Last Page→
한델 로그인 하기