델파이 밖에 없어서여..

var
    FirstDate: Double;
    ToDay: Double;
begin
    {DateSeparator를 지정한다.}
    DateSeparator := '/';
    {1년 첫번째 날을 지정한다.
     아래와 같은 그해 1월1일이 나오게 하면 된다.}
    FirstDate := StrToDate('2002/01/01');
    ToDay := Date;
    {오늘 날짜에서 1월1일을 빼준담에 1을 더하면 된다.}
    ShowMessage(FloatToStr(ToDay - FirstDate + 1));



건전맨 님이 쓰신 글 :
: 날짜를 바꾸려고 하는데요....
: 음... 1월 1일은 001로 해서 12월 31일은 365가 되는거죠.
: 2월 5일은 036이 되겠죠.
: 함수가 있을 것 같은데..
: 아시는 분 계시면 알려주세요...
: 감사...