Q&A

  • 두 날짜의 개월 차이 를 구하려면요...
2000-08-28 과

2002-10-01 의 두 날짜를 받아서.....

두 날짜의 사이의 개월 수 와 날짜 수를 구하고 싶은데...

방법점 알려주세요......
4  COMMENTS
  • Profile
    김호규 2002.10.26 18:13
    ms-sql서버를 쓰고 있는 경우엔
    DATEDIFF(datepart,date1,date2)

    DATEDIFF란 함수를 사용하며 date1과 date2사이의
    일자나 개월수 등을 확인할수 있습니다.
    datepart : mm(개월),dd(일),yy(년)


    ---도움이 되실런지..
  • Profile
    [ROOKIE] 2002.10.26 01:47
    원하는 답일지 모르겠지만...
    TDateTime <-- 이게 실수인디,
    정수부분은 날짜, 소수점 이하는 시간, 이렇게 구분해서 정보를 저장함다.
    단순히 날짜의 차이를 구하고 싶다면...

    Date1 <-- 요고에 2000-08-28일이 들어가 있고
    Date2 <-- 요고에 2002-10-28이 들어가 있다면

    Integer(Date2) - Integer(Date1)
    요렇게 하믄 날짜 수를 구할 수 있어여...
    달수는????
    저도 허접이라서 ~~~ 쉬리릭~~~

  • Profile
    나옹이 2002.10.26 03:21
    진정 원하는건....

    두 날짜의 개월 차 인데요....

    누구 아시는분 없으신지용?


  • Profile
    홍성락 2002.10.26 04:06
    개월수라 그냥 가감승제로 하면 좀 그럴라나요...
    var
        D1,D2 : string;
        M1, M2, M : integer;
    begin
        D1 := '2000-08-28';
        D2 := '2002-10-28';

        M1 := (StrToint(copy(D2,1,4)) - StrToint(copy(D1,1,4)))*12; //연도
        M2 := StrToint(copy(D2,6,2)) - StrToint(copy(D1,6,2));        //월

        M := M1 + M2;
        Label1.Caption := '개월:' + intToStr(M);
    end;
    //------------------------------------------------
    일수는
    var
        D1,D2 : TDateTime;
        DifD : Double;
    begin
        D1 := StrToDate('2000-08-28');
        D2 := StrToDate('2002-10-28');
        DifD := D2-D1;
        Label1.Caption := '날짜:' + intToStr(Trunc(DifD));
    end;

    hsr//////////////////////////////////