날짜계산1 [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 에휴~ 나쁜머리로 짜니라 고생했네-_-; 주랑 요일 값만 있을경우 날짜 계산하는 함수입니.. 2010. 11. 16. 이전 1 다음