특정한 주의 날짜 알아내기

Step 1: 어떤 질문이었을까요?

구경만 한다고 해서 너무 죄송해 하실 것 까지는 없습니다. 언젠가는 다른 사람들을 위해 답변을 달게 될 기회가 올 것이며, 그 동안은 열심히, 부담없이 둘러보세요.

이에 더하여, 아직 VBA가 얼마나 파워풀하고 쓸데 많은(?) 것인지 잘 모르는 주변 사람들에게 열심히 계몽을 해 주시면 됩니다(자아~ 약속~~!!).

이런 경우에는 엑셀의 내장 함수로는 해결하기 어려우나 사용자 정의 함수를 만들면 간단하게 해결할 수 있습니다.

위의 해당 주간 부분에는 =WhatWeek(C33,C34)라는 수식이 들어 있습니다. 이 때 WhatWeek는 사용자 정의 함수로 코드의 내용은 다음과 같습니다.

Step 2: 코드 살펴보기

Function WhatWeek(Year, Week) As String
'연도와 몇째 주를 표시할 것인지에 대한 정보를 파라미터(parameter) 정보로 넘겨 받습니다.

    Dim lngNum As Long
    Dim blnOK As Boolean

    For lngNum = DateSerial(Year, 1, 1) To DateSerial(Year + 1, 1, 0)
    'DateSerial은 '지정한 년/월/일에 해당하는 날짜값을 반환하는 VBA 함수'입니다.
    '지정한 연도의 1월 1일부터 12월 31일까지 순환하면서 무언가 작업을 하기 위해 이런
    '조건을 주었습니다.

        If DatePart("ww", CDate(lngNum)) = Week Then
        'DatePart라는 새로운 함수가 나왔군요. 이것은 '해당 날짜의 주어진 부분을 포함하는
        'Variant 값을 반환하는 VBA 함수'입니다.
        '
        '그것이 도대체 무슨 소리냐구요?
        '예를 들어, '? DatePart("q", "2007/8/2")'라고 하면 오늘날짜가 포함된 분기가 몇분기인지
        '알려준다는 의미입니다. 답은 '3'입니다. 왜?? 8월은 3분기이니까…
        'DatePart 함수의 인수로 "ww"를 지정하면 해당 날짜의 주(Week)를 구해 줍니다.
        '이 함수의 다양한 인수에 대해서는 도움말을 참고하시기 바랍니다.

            WhatWeek = CDate(lngNum) & " ~ " & CDate(lngNum) + 6
            '지정한 주와 일치하는 날짜 및 그 날짜에서 6을 더한 날짜를 결과값으로 리턴합니다.

            blnOK = True
          Exit For
        End If
    Next lngNum

    If blnOK = False Then WhatWeek = "날짜 오류"
    '만약 오류값이 발생하면 '날짜 오류'라는 문자열을 결과값으로 돌려줍니다.

End Function

DatePart라는 VBA 함수를 잘 이용하면 해결할 수 있는 문제였습니다.

다음 시간에 또…

정리 — WhatWeek 함수 코드 핵심

자주 묻는 질문 (FAQ)

마치며

DatePart라는 VBA 함수를 잘 이용하면 해결할 수 있는 문제였습니다. 사용자 정의 함수로 만들어 두면 워크시트에서 바로 활용할 수 있습니다.