Discussion :

[agd92500]

Bonjour,

Voila j'ai un tableau

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
Dim Tableau_Date() As String
ReDim Tableau_Date(1 To 5, 1 To 3)

Le tableau a donc 5 entrées pour 3 colonnes et prend les valeurs comme ci-dessous :

tableau_Date(i, 1) = "Jour"
tableau_Date(i, 2) = "Mois"
tableau_Date(i, 3) = "Année"

et je voudrais en bouclais sur les 5 lignes du tableau déterminer la date la plus récentes.

Mais je ne sais pas comment m'y prendre.

une idée ?
Merci d'avance.
Agd

[Menhir]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Dim Res As Long
Res = 1
For i = 2 To 5
    If DateSerial(tableau_Date(i, 3), tableau_Date(i, 2), tableau_Date(i, 1)) > DateSerial(tableau_Date(Res, 3), tableau_Date(Res, 2), tableau_Date(Res, 1)) Then Res = i
Next i
Debug.Print "La date la plus récente est " ; tableau_Date(Res, 1) ; "/" ; tableau_Date(Res, 2) ; "/" ; tableau_Date(Res, 3)

[Invité]

Bonjour,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
Enum ConAdo
    adBstr = 8
    adBoolean = 11
    adInteger = 3
    adUnsignedTinyInt = 17
    adDate = 7
    adDouble = 5
    adSingle = 4
End Enum
 
 
Sub test()
With CreateObject("ADODB.Recordset")
    .Fields.Append "Date", adDate
    .Fields.Append "Jour", adInteger
    .Fields.Append "Mois", adInteger
    .Fields.Append "Année", adInteger
    .Open
    .AddNew '01/12/2017
        .Fields("Jour") = 1
        .Fields("Mois") = 12
        .Fields("Année") = 2017
        .Fields("Date") = DateSerial(.Fields("Année"), .Fields("Mois"), .Fields("Jour"))
    .Update
    .AddNew '01/04/2017
        .Fields("Jour") = 1
        .Fields("Mois") = 4
        .Fields("Année") = 2017
        .Fields("Date") = DateSerial(.Fields("Année"), .Fields("Mois"), .Fields("Jour"))
    .Update
    .Sort = "date"
    .MoveFirst
    Debug.Print .Fields("Jour"), .Fields("Mois"), .Fields("Année"), .Fields("Date")
   End With  
End Sub

[agd92500]

Merci Menhir
Je ne connaissais pas la fonction DateSerial.

[Menhir]

Ca aurait put aussi bien marcher avec tableau_Date(i, 3) * 500 + tableau_Date(i, 2) * 40 + tableau_Date(i, 1).