Q&A

  • 누적 날짜 계산방법??
날짜 카운트라고나 할까..

예를들면 1월 1일 =  1
             1월 2일 =  2
                    ...
             2월 1일 =  32
             2월 2일 =  33
이런식으로 월, 일 만 가지고 년도를 참고해서 누적 날수를 구하려 하는데요..
어떻게 하면 되나요? ㅜㅜ
이 게시물을
2  COMMENTS
  • Profile
    최석기 • 2002.07.08 22:53
    Date 형으로 바꿔서 빼주면 될꺼 같은데요.

    처음 기준 날짜를 전년도 12월 31로 잡고요..

    var
      baseDate: TDate;
      tempDate: TDate;
      date0101,date0102,date0201,date0202: integer;
    begin
      baseDate := StrToDate('2001-12-31');

      tempDate := StrToDate('2002-01-01');
      date0101 := trunc(tempDate - baseDate);
      Showmessage(IntToStr(date0101));

      tempDate := StrToDate('2002-01-02');
      date0102 := trunc(tempDate - baseDate);
      Showmessage(IntToStr(date0102));

      tempDate := StrToDate('2002-02-01');
      date0201 := trunc(tempDate - baseDate);
      Showmessage(IntToStr(date0201));

      tempDate := StrToDate('2002-02-02');
      date0202 := trunc(tempDate - baseDate);
      Showmessage(IntToStr(date0202));
    end;

  • Profile
    이지인 • 2002.07.08 23:42

    ㄳ ㄳ~

    에휴.. trunc 함수가 있었네요.. ^^;
    델파이 쓴지 별루 안되서 이궁.. ㅎㅎ
    VB에서 DateDiff 함수가 있거덩요... 찾다가 찾다가 못찾아서 질문 올렸는데
    역시나 간단한 함수가 있었군요..
    감사해욤~~
←First Page
958 959 960 961 962 963 964 965 966 967
Last Page→
한델 로그인 하기