Function  DayOfTwo(StartDate,EndDate:TDate):Integer;
Var
   Loop                      : Integer;
Begin
     Result:= 0;
     For Loop:= StartDate.Year to EndDate.Year-1 Do Result:= Result + DayOfYear(Loop);
     For Loop:=  1 to StartDate.Month-1 Do Result:= Result - DayOfMonth(ToDate(StartDate.Year, Loop, 0));
     Result:= Result - StartDate.Day;
     For Loop:=  1 to EndDate.Month-1 Do Result:= Result + DayOfMonth(ToDate(EndDate.Year, Loop, 0));
     Result:= Result + EndDate.Day;
End;

위의 함수를 첨부 파일 유니트에서 참고하세요.
터보 파스칼 때 작성한 것을 지금도 간간히 고쳐서 사용 중입니다 ㅡ.ㅡ;
(스타일이 제가 터보파스칼 때 쓰던 코딩스타일이네요 ㅡ.ㅡ)

재현 님이 쓰신 글 :
: [날짜1] 과 [날짜2] 사이가 몇년 몇월 몇일 간인지를 구하려면
: 어떻게 해야 하나요? 무조건 365로 나누는 식으로는 정확하지가 않고...
: 좀 급해서 그럽니다. 아시는 분은 꼭 답변 좀 부탁 드립니다.