엑셀VBA 배열안에서 가장 최신의 날짜를 뽑아내기

 

 

 

Sub test()

    Dim m As Workbook
    Dim ms As Worksheet
    
    Set m = Workbooks(ThisWorkbook.Name)
    Set ms = m.Sheets("Sheet2")
    
    Dim v() As Variant
    Dim r As Integer
    ReDim v(1 To 1)
    
    '임시로 배열 생성
    v = Array("2020-04-01", "2020-04-09", "2020-04-02")
    
    Dim strResult As String
    strResult = return_recentDate(v)
    
    Debug.Print (strResult)

End Sub

Function return_recentDate(ByRef v() As Variant) As String
    ' 버블 정렬
    First = LBound(v)
    Last = UBound(v)
    For i = First To Last - 1
        For j = i + 1 To Last
            If v(i) > v(j) Then
                Temp = v(j)
                v(j) = v(i)
                v(i) = Temp
            End If
        Next j
    Next i
    
    Dim maxDate As String
    maxDate = v(UBound(v))
    
    return_recentDate = maxDate

End Function