[VB script] 년도, 몇주, 요일 값을 받아와서 날짜 계산하는 함수

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

에휴~ 나쁜머리로 짜니라 고생했네-_-;

주랑 요일 값만 있을경우 날짜 계산하는 함수입니다.
필요하신분 가져가시구, 혹시 좀 더 아름다운 소스를 가지고 계신분은 제보 부탁드려요~~~~~