LOOP and array

[luca90]

I loop a series of date from a for next cicle

similar:

For Each olItm In olFld.Items
If InStr(olItm.Subject, "abd") Then
TEST = olItm.ReceivedTime

'here store date into array

End If
Next

i need to store all dates from the loop and when the loop finish extract the newst date from array, is possible?

Note:
Test is dimensioned as Date

[Bill Crawley]

before doing any processing on your recordset, why not use the '.sort' method first to get the data into the order you want.

[Smartchap]

Yes just after storing date into the array, use sorting of all recordset by Date in ascending / descending order so that it will be arranged as per date and you will get the sorted data.

[luca90]

before doing any processing on your recordset, why not use the '.sort' method first to get the data into the order you want.

hummmmm....

my code go in error:

....
Dim ARRAY_DATE() As Date    'Array DELLE DATE
....

I=0
For Each olItm In olFld.Items
If InStr(olItm.Subject, "te") Then
TEST = olItm.ReceivedTime
ARRAY_DATE(I) = Format(TEST, "DD/MM/YYYY")
I = I + 1
End If
Next

[Smartchap]

I think if u post ur code with data file, it will be easy to help.

[luca90]

I think if u post ur code with data file, it will be easy to help.

01/01/2011 05.00.11 <- Selected
01/01/2011 19.00.14
01/01/2011 21.21.11
02/01/2011 05.00.02 <- Selected
03/01/2011 01.00.03 <- Selected
03/01/2011 12.17.21
03/01/2011 18.00.27

if is most simple i post my question on other side:

Admitting i loop the series of value with a for next how to fill combobox items with the value marked with < - Selected

In effect i need to fill the items oin combo with the dates vale with the oldest time

[Doogle]

You're not re-dimensioning the Dynamic Array

....
Dim ARRAY_DATE() As Date    'Array DELLE DATE
....

I=0
For Each olItm In olFld.Items
    If InStr(olItm.Subject, "te") Then
       TEST = olItm.ReceivedTime
       ReDim Preserve ARRAY_DATE(I)
       ARRAY_DATE(I) = Format(TEST, "DD/MM/YYYY")
       I = I + 1
    End If
Next