[엑셀VBA] 나만의 함수만들기 (날짜계산함수)

'datedif1 : FROM 당일포함, TO포함한 날짜계산하는 함수 

' 함수명은 본인이 원하는대로 하면 된다.

' 두개의 입력값 :  시작일과 종료일

' <--홑땅옴표는 VB에서 주석으로 프로그램돌아갈때 실제프로그램에 영향을 주지 않는 주석을 표현할 때 사용한다.

' 함수는 Function으로 시작하는 구문을 사용하고, 끝에 End Function으로 닫는다. 그 사이에 원하는 프로그램을 구현하면 된다.

 Function datedif1(date2 As Variant, date1 As Variant)  

    '시작일자 date1의 길이가 8자이면 텍스트형태(예.20181231)로 입력한것으로 간주하고

    ' "-"(대시)가 들어간 날짜형태로 바꿔준다.

    If Len(date1) = 8 Then

       date1 = Mid(date1, 1, 4) & "-" & Mid(date1, 5, 2) & "-" & Right(date1, 2)

    End If

     '종료일자 date2의 길이가 8자이면 텍스트형태(예.20181231)로 입력한것으로 간주하고

    ' "-"(대시)가 들어간 날짜형태로 바꿔준다.

    If Len(date2) = 8 Then

       date2 = Mid(date2, 1, 4) & "-" & Mid(date2, 5, 2) & "-" & Right(date2, 2)

    End If

    '엑셀VBA에 있는 함수인 datediff 를 사용하여 두 날짜를 계산한다.

    '기본적으로 VBA의 datediff 함수만 사용하면 당일은 미포함하여 계산된다.

    getDate = datediff("d", date1, date2) + 1

    ' 중요 : 함수명인 datedif1 에 위에서 계산된 getDate를 리턴해주면 됨. 

    ' "일"자를 붙여도 되고 안붙이고싶으면 빼면 됨.

    datedif1 = getDate & "일"

End Function

'datedif2 : FROM 당일 미포함(다음날부터), TO포함 날짜계산

'내용은 위와 같은데 아래 getDate식에서 datediff 기본 VBA함수만으로 계산함.

Function datedif2(date2 As Variant, date1 As Variant)

    If Len(date1) = 8 Then

       date1 = Mid(date1, 1, 4) & "-" & Mid(date1, 5, 2) & "-" & Right(date1, 2)

    End If

    If Len(date2) = 8 Then

       date2 = Mid(date2, 1, 4) & "-" & Mid(date2, 5, 2) & "-" & Right(date2, 2)

    End If

    getDate = datediff("d", date1, date2)

    datedif2 = Int(getDate)

End Function