Auteur

MVP Office Access 2003, 2004, 2005 et 2006

Codes pour Access

Base de données

Administrateur

Table

Requête

º Concaténation par regroupement
º Création requête regroupement
º Retourner date plus ancienne entre pls champ

Retourner date plus récente entre pls champ
º Retourner la valeur maximale entre pls champ
º Retourner la valeur minimale entre pls champs
º Récupération du SQL

Formulaire

Dates & Heures

Nombre

Math

Fichier

Commandes externes

Automation

Equivalence

Tuto Access 2007

Base de données

Lettre d'information

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

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

Date de création : 14/10/2006 @ 17:56
Dernière modification : 14/10/2006 @ 17:56
Catégorie : Requête
Page lue 2351 fois

Prévisualiser la page Imprimer la page

Réactions à cet article

Personne n'a encore laissé de commentaire.
Soyez donc le premier !

Recherche

Activités MPFA

Derniers messages sur MPFA

Derniers sujets sur MPFA

Préférences

80 Membres

les 10 derniers :

Habibchalakh CJ6774 monaker Jerry jujubegood Rachid fifimeyrou MoxQwoidT fof_alaz bellemeche

Membre en ligne :

( personne )

Anonymes en ligne : 3

Total visites : 184516

Affluence record: 102
le 17/06/2007 @ 07:36

Haut

Document généré en 0.13 seconde

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

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