기간사이 특정요일 개수알아내기

기간사이 특정요일 개수알아내기

728x90

 

 

 

 

 

function CountWeek(StartDate, EndDate : TDate; CheckWeek : Integer) : Integer;

var

  DayNum, StartWeek : Integer;

begin

 

  DayNum := Trunc(Int(EndDate - StartDate)); // MATH Unit 사용을 하지 않았을 경우

 

  if StartDate > EndDate then

    StartWeek := DayOfWeek(EndDate)

  else

    StartWeek := DayOfWeek(StartDate);

 

  // StartWeek := DayOfWeek(Max(StartDate,EndDate)); // MATH Unit 사용시

 

  Result := DayNum div 7;

 

  if CheckWeek = StartWeek then

    inc(Result);

 

  if (DayNum mod 7) <> 0 then

    if ((StartWeek + (DayNum mod 7)) mod 7) >= StartWeek then

      inc(Result);

 

end;

 

 

사용방법

//시작일 , 마지막날짜 , 일:1 월:2 화:3 수:4 목:5 금:6 토:7

CountWeek( DateTimePicker1.Date, now, 1 );