Compléments pour Microsoft Access

Description

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

Synthaxe

RecupDateRecente(LesDates)

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

Eléments	Description
LesDates	Expression 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, RecupDateRecente([Date1], [Date2], [Date3]) As DateRecente
FROM LaTable;

Code de la fonction

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

Dim intDate As Integer
Dim MaxDate As Date
For intDate = 0 To UBound(LesDates())
If LesDates(intDate) > MaxDate Then MaxDate = LesDates(intDate)
Next
RecupDateRecente = MaxDate

End Function

Retourner date plus récente entre pls champ (Requête)

SELECT Champ1, RecupDateRecente([Date1], [Date2], [Date3]) As DateRecenteFROM LaTable;

SELECT Champ1, RecupDateRecente([Date1], [Date2], [Date3]) As DateRecente
FROM LaTable;