Compléments pour Microsoft Access

http://access.fr.free.fr/

Retourner date plus ancienne entre pls champ (Requête)

Description 

Cette fonction permet d'effectuer une comparaison entre plusieurs données de type Date afin de retourner la date la plus ancienne.

 
Synthaxe 

RecupDateAncienne(LesDates)

La synthaxe de la fonction RecupDateAncienne comprend l'élément suivant :

ElémentsDescription
LesDatesExpression de variant correspondant aux dates que l'on souhaite comparer.
 
Exemple 

Cette fonction pourra être utilisée directement dans du code ou alors être appelée dans une requête de la façon suivante :

SELECT Champ1, RecupDateAncienne([Date1], [Date2], [Date3]) As DateAncienne
FROM LaTable;
 
Code de la fonction 


 

Function RecupDateAncienne(ParamArray LesDates() As Variant) As Date

Dim intDate As Integer
Dim MaxDate As Date

For intDate = 0 To UBound(LesDates())
    If Nz(LesDates(intDate), 0) <> 0 _
        And (LesDates(intDate) < MaxDate Or MaxDate = 0) _
        Then MaxDate = LesDates(intDate)
Next

RecupDateAncienne = MaxDate

End Function