Récupération date la plus récente entre plusieurs champs


Le code qui suit permet d'effectuer une comparaison entre plusieurs champs date et de retourner la date la plus récente.

L'argument "LesDates()" est une variable tableaux dans laquelle figureront toutes les dates à comparer.

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

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

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

 

Retour haut de page

Auteur : Jessy SEMPERE