Q&A

  • 년월일/년월일간의 일수 계산
안녕하세요.
델파이 초보자입니다.(^.^)
프로그램공부하다가... 문뜩 궁금해서... 글을 올립니다.
2003년 8월 26일        -     2003년 9월 28일 사이의 일수는 어떻게 구할수
있습니까?
또한, 위의 것을 처리하면서 월별일수와 2월달의 문제(윤달)해결을 같이
하려면 어떤 방법이 있습니까...
고수분들의 답변을 바랍니다.
3  COMMENTS
  • Profile
    김길현 2003.08.27 04:08
    안녕하세요.

    날짜를 간단하게 계산하는 방법입니다.

    var
      DateLove,DatePeace : Tdate;
      MeettingDate : integer;
    begin
      DateLove := StrToDate('2001-12-03');
      DatePeace := StrToDate('2002-12-03');

      MeettingDate := trunc(DatePeace-DateLove);
      label1.caption := inttostr(MeettingDate);

    end;

    문자열로 입력받아서 날짜형으로 바꾼후에 계산하면
    날짜 일수를 구할수 있습니다.

    평안하루 되세요.


  • Profile
    안정철 2003.08.27 19:25
    StrToDate를 사용하지 않고하는 방법은 없는지요...

    로직을 한번 만들어 보려니.... 잘 안돌아 가는군요...

    참고할만한 소스가 있으시면 더욱 좋고요...

    고수님들의 답변을 절실히 기다랍니다. (^.^)
  • Profile
    정병선 2003.08.28 10:02
    날짜:
    DateUtils.DaysBetween(StrToDate('2003-01-01'), StrToDate('2003-02-01')) = 31
    DateUtils.DaysBetween(StrToDate('2003-01-01'), StrToDate('2004-01-01')) = 365

    윤년:
    SysUtils.IsLeapYear('2003')

    간단하지여...