해당날짜 몇 주차인지 알아내기

해당날짜 몇 주차인지 알아내기

728x90

 

uses System.DateUtils

 

function myGetWeekNo(paToday:TDateTime):Word;

var

vWeekNo : word;

vDTstart : TDate;

begin

vDTstart := EncodeDate( YearOf(paToday), MonthOf(paToday), 01 );

vWeekNo := WeekOfTheYear(paToday) - WeekOfTheYear(vDTstart) +1;

if Not (vWeekNo IN [1..6]) then //12월 31일이 월요일인경우 리턴값이 65xxx를 예방하기 위함

vWeekNo := 6;

Result := vWeekNo;

end;