반응형
Function getReserDate(reserYear,reserWeek,reserWeekDay)
yearFirstDay = CDate(reserYear & "-01-01") '해당년의 첫번째 일
firstDayWeek=Weekday(yearFirstDay,2)-1
addDay = (reserWeek-1)*7+reserWeekDay-firstDayWeek '첫번째 일에서 더할 날 수
If reserWeekDay=6 Then addDay=addDay-7 '일요일의 경우 7을 빼줘야 값이 나옴
getReserDate=DateAdd("d",addDay,yearFirstDay) '해당예약일 값 반환
End Function
yearFirstDay = CDate(reserYear & "-01-01") '해당년의 첫번째 일
firstDayWeek=Weekday(yearFirstDay,2)-1
addDay = (reserWeek-1)*7+reserWeekDay-firstDayWeek '첫번째 일에서 더할 날 수
If reserWeekDay=6 Then addDay=addDay-7 '일요일의 경우 7을 빼줘야 값이 나옴
getReserDate=DateAdd("d",addDay,yearFirstDay) '해당예약일 값 반환
End Function
에휴~ 나쁜머리로 짜니라 고생했네-_-;
주랑 요일 값만 있을경우 날짜 계산하는 함수입니다.
필요하신분 가져가시구, 혹시 좀 더 아름다운 소스를 가지고 계신분은 제보 부탁드려요~~~~~
반응형
'=====-I T-===== > ▣기타등등' 카테고리의 다른 글
| [Git] Git Error Message 시 대처사항 목록(계속 추가예정) (0) | 2016.09.01 |
|---|---|
| [Excel] 엑셀 매크로로 마지막줄 다음줄에 복사하기 (0) | 2015.10.14 |
| svn 디렉토리 정리하기(서브버전 찌꺼기 디렉토리 제거) (0) | 2013.01.16 |
| 파일삭제 스크립트(배치작업 위한) (0) | 2012.12.18 |
| [IIS] 캠타시아로 만든 플래시가 작동이 되지 않을때 (0) | 2011.03.22 |