如何从date数组中find最早的MMMYY？

有谁知道我怎样才能从下面的表格中find最早的MMMYY（见K栏）。

注：date不按升序sorting。

码：

Sub outputfile() 'Capture the contract no. in ContractNo() array Dim ContractNo() As String 'Capture the project title in ProjectTitle() array Dim ProjectTitle() As String 'Capture the contract start in ContractStart() array Dim ContractStart() As Date 'Capture the contract end in ContractEnd() array Dim ContractEnd() As Date 'Capture ASPQ Cement in ASPQC() array Dim ASPQC() As Double 'Capture ASP Sand in ASPQS() array Dim ASPQS() As Double 'Capture ASP Aggregate in ASPQA() array Dim ASPQA() As Double i = 2 Do Until IsEmpty(Cells(i, 1).Value) i = i + 1 Loop ReDim ContractNo(1 To i - 2) ReDim ProjectTitle(1 To i - 2) ReDim ContractStart(1 To i - 2) ReDim ContractEnd(1 To i - 2) ReDim ASPQC(1 To i - 2) ReDim ASPQS(1 To i - 2) ReDim ASPQA(1 To i - 2) For i = 1 To UBound(ContractNo, 1) ContractNo(i) = Cells(i + 1, 1).Value ProjectTitle(i) = Cells(i + 1, 2).Value ContractStart(i) = Cells(i + 1, 11).Value ContractEnd(i) = Cells(i + 1, 12).Value ASPQC(i) = Cells(i + 1, 14).Value ASPQS(i) = Cells(i + 1, 15).Value ASPQA(i) = Cells(i + 1, 16).Value Next i End sub 

Answer 1

我相信最好的是一个单元格中的内置公式。

 =TEXT(MIN(K:K), "MMMYY")