Dim todayWeekday As String ' 내일의 요일 구하기 (한글 변환) Dim weekdayMap As Object Set weekdayMap = CreateObject("Scripting.Dictionary") weekdayMap.Add 1, "일" weekdayMap.Add 2, "월" weekdayMap.Add 3, "화" weekdayMap.Add 4, "수" weekdayMap.Add 5, "목" weekdayMap.Add 6, "금" weekdayMap.Add 7, "토" todayWeekday = weekdayMap(Weekday(Date + 1)) ' 내일의 요일