[땡큐엑셀vba & 엑셀매크로] yyyy.mm.dd 포맷으로 바꾸는 사용자정의 함수

 

'http://kin.naver.com/qna/detail.nhn?d1id=1&dirId=102020101&docId=283220237

'날짜가
'2017.05.06 ~ 2018.08.06
'2016.5.08 ~2017.08.2
'이렇게 날짜가 입력되어 있을때
'1. 날짜를 yyyy.mm.dd로 바꾸는방법 그러니까 5.08을 05.08로 표시되도록
'2. 물결 양 옆 공백 제거하는법
'부탁드립니다.

'module
'Source by 땡큐엑셀vba & 엑셀매크로
'
'공백제거
Function removeSpace(r1 As String) As String

    
    변환후 = Replace(r1, " ", "")
    
    removeSpace = 변환후
    
End Function


'Source by 땡큐엑셀vba & 엑셀매크로
'yyyymmdd형식으로 변환
Function yyyymmdd(r1 As String) As String

    '물결(~)을 구분자로 나눈다
    분리보관 = Split(r1, "~")
    
    '물결을 기준으로 앞부분 날짜
    앞부분 = Split(분리보관(0), ".")
    
    '물경을 기준으로 뒷부분 날짜
    뒷부분 = Split(분리보관(1), ".")
    

    '앞부분 날짜에서 월과 일자가 두자리씩 구성되었는지 확인하여 아닐경우 앞에 0을 붙인다.
    If Len(앞부분(1)) = 1 Then 앞부분(1) = "0" & 앞부분(1)
    If Len(앞부분(2)) = 1 Then 앞부분(2) = "0" & 앞부분(2)
    
    '뒷부분 날짜에서 월과 일자가 두자리씩 구성되었는지 확인하여 아닐경우 앞에 0을 붙인다.
    If Len(뒷부분(1)) = 1 Then 뒷부분(1) = "0" & 뒷부분(1)
    If Len(뒷부분(2)) = 1 Then 뒷부분(2) = "0" & 뒷부분(2)

    
    '앞부분(0),뒷부분(0)에는 년도가 들어있음
    변경후 = 앞부분(0) & "." & 앞부분(1) & "." & 앞부분(2) & "~" & 뒷부분(0) & "." & 뒷부분(1) & "." & 뒷부분(2)
    
    
    yyyymmdd = 변경후

End Function

 

공백제거및_yyyymmdd포맷으로변환-replace_split-사용자정의함수-땡큐엑셀vba.xlsm

0.16MB