VBA，EXCEL：此数组字符串

Question

我在与编码一些问题，不知道从哪里解决这个在返回的最早日期值：

我想BronzeDate返回中发现的最早日期我的阵列。

这是打印出来的例子：

Possible Bronze Date : 6/6/2011 
    Possible Bronze Date : 10/5/2011 
    Possible Bronze Date : 10/5/2011 
    Possible Bronze Date : 12/5/2011 
    Possible Bronze Date : 10/5/2011 
    Possible Bronze Date : 6/6/2011 
    Possible Bronze Date : 11/5/2011 
    Possible Bronze Date : 1/16/2012 
    Possible Bronze Date : 6/6/2011 
    Possible Bronze Date : 
    Possible Bronze Date : 
    Possible Bronze Date : 
    Possible Bronze Date : 
    Possible Bronze Date : 
    Possible Bronze Date : 
    Possible Bronze Date : 
    Possible Bronze Date : 
    Possible Bronze Date : 
    Possible Bronze Date : 
    [BRONZE] 0 

编码：

Dim Bronze(1 To 100) As String 
... 
     Dim c As Integer 
     c = 1 
     Do Until c = 20 
      Debug.Print "  Possible Bronze Date : " & Bronze(c) 
      c = c + 1 
     Loop 

     ' EXTRACT THE MIN VALUES 
     Dim BronzeDate As String 
     BronzeDate = Application.WorksheetFunction.Min(Bronze) 

     ' PRINT OUT VALUE FOR EACH DATES 
     Debug.Print "  [BRONZE] " & BronzeDate 

Answer 1

我认为这个问题是，你的青铜阵列是一个字符串数组。

如果您将青铜阵列更改为类型变体，这应该可以解决您的问题。

Answer 2

我相信你别无选择，只能单独转换字符串日期。

我已测试此代码输出正确的日期。注意我将数组中的中间日期切换为小尾数，所以我的Excel版本将正确处理它们。

Sub ExtractMinDate() 

    Dim Bronze() As Variant 
    Dim DateCrnt As Date 
    Dim DateMin As Date 
    Dim InxBronze As Long 

    Bronze = Array("6/6/2011", "5/10/2011", "5/10/2011", "1/12/2011", "5/10/2011", _ 
       "6/6/2011", "5/11/2011", "16/1/2012", "5/6/2011") 

    DateMin = 0 

    For InxBronze = LBound(Bronze) To UBound(Bronze) 
    If IsDate(Bronze(InxBronze)) Then 
     DateCrnt = Bronze(InxBronze) 
     If DateMin = 0 Or DateMin > DateCrnt Then 
     DateMin = DateCrnt 
     End If 
    End If 
    Next 

    Debug.Print DateMin 

End Sub