최근에 주를 계산해야 할 일이 있어서 인터넷에서 기성코드를 찾아봤는데 적합하지 않아서 직접 하게 되었습니다.
기본적으로 해당 연도의 첫 번째 월요일은 첫 번째 주가 시작됩니다.
'특정 연도의 첫 번째 주의 시작일을 계산합니다.
함수 첫날(입력 연도)
i=cdate(inputyear&"-1-1")를 cdate(inputyear&"-1-7")로 변경
weekday(i)=2이면
첫날=나
종료
종료하면
다음
함수 종료
'입력 날짜 계산은 해당 연도의 주의 함수입니다.
함수CalcWeekNo(입력 날짜)
toyear=연도(입력날짜)
fday=첫날(내일)
datediff("d",fday,inputdate)<0이면
fday=첫날(toyear-1)
종료하면
'calcweekno=fday
daynum=dateiff("d",fday,inputdate)
calcweekno=int(일수/7)+1
함수 종료
'주 번호와 연도를 기준으로 주의 첫 번째 요일을 계산합니다.
함수 getfst(입력연도,weekno)
fday=첫날(입력 연도)
getfst=dateadd("d",(weekno-1)*7,fday)
함수 종료