Vbscript 检查变量中的最高和最低日期

我有六个日期变量。我想检查哪个值最高，哪个值最低

例：

输出应为：

Highest: 2014-10-24 00:00:00.000
 Lowest: 2014-06-12 00:00:00.000

---

创建一个包含日期的数组并对其排序

  Dim DateArray() As DateTime = {"2014-06-12 00:00:00.000", "2014-06-12 00:00:00.000".....your dates here}
  Dim MinDate As DateTime
  Dim MaxDate As DateTime

Array.Sort(DateArray)

      MinDate = DateArray(DateArray.GetLowerBound(0))
      MaxDate = DateArray(DateArray.GetUpperBound(0))

---

创建一个包含日期的数组并对其排序

  Dim DateArray() As DateTime = {"2014-06-12 00:00:00.000", "2014-06-12 00:00:00.000".....your dates here}
  Dim MinDate As DateTime
  Dim MaxDate As DateTime

Array.Sort(DateArray)

      MinDate = DateArray(DateArray.GetLowerBound(0))
      MaxDate = DateArray(DateArray.GetUpperBound(0))

---

你试过什么了吗？是的，ifs里面有很多ifs。你试过什么了吗？是的，ifs里面有很多ifs，但我有一些sintax错误。我使用的是经典的ASPAX，谢谢，但是我有一些sintax错误。我用的是经典的ASP谢谢你的时间！成功了！仅供参考，您可以通过在日期值周围加上。不需要CDate。例如，date1=2014/6/12感谢您抽出时间！成功了！仅供参考，您可以通过在日期值周围加上。不需要CDate。例如，date1=2014/6/12

Option Explicit

' Prepare data to test
Dim date1, date2, date3, date4, date5, date6

    date1=CDate("2014/06/12")
    date2=CDate("2014/06/12")
    date3=CDate("2014/10/20")
    date4=CDate("2014/10/21")
    date5=CDate("2014/10/21")
    date6=CDate("2014/10/24")

' Initialize array    
Dim aDates
    aDates = Array( date1, date2, date3, date4, date5, date6 )

' Prepare variables to store the required information    
Dim dateMin, dateMax

    dateMin = date1
    dateMax = date1

' Iterate over the array to find the max and min values    
Dim i
    For i=1 to UBound(aDates)
        If aDates(i) < dateMin Then dateMin = aDates(i)
        if aDates(i) > dateMax Then dateMax = aDates(i)
    Next 

' Output Information
    WScript.Echo "Highest: " & CStr( dateMax )
    WScript.Echo " Lowest: " & CStr( dateMin )