hsr//////////////////////////////////////////////////////////
procedure TForm1.Button1Click(Sender: TObject);
var
    i, Day_count : integer;
    SDate, EDate: TDate;
begin
    Day_count := 0;
    //SDate := StrToDate('2001-6-5');
    //EDate := StrToDate('2002-5-17');
    //이렇게해도 되나 시스템의 날짜형식의 차이로...아래처럼하면 범용적임
    SDate := StrToDate(FormatDateTime('yyyy-mm-dd',EncodeDate(2001, 6, 5)));
    EDate := StrToDate(FormatDateTime('yyyy-mm-dd',EncodeDate(2002, 5, 17)));
    for i := 0 to Round(EDate-SDate) do
       if DayOfWeek(SDate + i) = 1 then inc(Day_count);

    showmessage(intToStr(Day_count) + '일 입니다.');
end;