Description
Convertit une valeur de date en valeur de date du 21e siècle en fonction de la plage spécifiée.
Arguments
Date : accepte uniquement les champs date valides, avec des années à 2 ou 4 chiffres.
Champ de base de données défini comme un champ de date. Les options Fichier|Options du rapport doivent être définies sur Convertir le champ de type date/heure en date.
La fonction CDate (CDate(aaaa, MM, jj) ). Une année à 4 chiffres est requise pour cette fonction. Si vous saisissez deux chiffres, la valeur par défaut sera 00xx (par exemple, 98 apr. J.-C.).
Nombre : nombre de 0 à 99 correspondant à l'année commutable souhaitée.
Résultat
Champ de date constitué de quatre chiffres
Action
année à 2 chiffres (xx)
Si l'année est supérieure au nombre commutable, 19 est ajouté avant les 2 chiffres (19xx). Si l'année est inférieure ou égale au nombre commutable, 20 est ajouté (20xx).
année à 4 chiffres (19xx)
Si la valeur des deux derniers chiffres de l'année est supérieure au nombre commutable, l'année est conservée telle qu'elle apparaît dans le champ de date (19xx). Si les deux derniers chiffres de la valeur de l'année sont inférieurs ou égaux au nombre commutable, les deux premiers chiffres sont remplacés par 20 (20xx). Si les deux premiers chiffres de l'année correspondent à 20, l'année du champ de date est conservée (20xx).
Remarque :
Si l'année est inférieure ou égale à 1899 et supérieure ou égale à 100, la date ne sera pas modifiée.
Que les dates de votre base de données soient interprétées comme des années à deux ou à quatre chiffres (19xx) dépend du pilote de base de données que vous utilisez. Le résultat de la formule doit être le même dans les deux cas.
Exemples
Ici, la valeur commutable est supérieure à l'année et sera remplacée par 20XX.
DateTo2000(CDate(1993,12,12), 99)
renvoie 12/12/2093.
Ici, la valeur commutable est inférieure à l'année et ne sera pas modifiée.
DateTo2000(CDate(1993,12,12), 92)
renvoie 12/12/1993
Exemples supplémentaires
Exemple de date non modifiée par la fonction.
DateTo2000(CDate(1899,12,12), 99)
renvoie 12/12/1899.
Exemple de date non modifiée par la fonction.
DateTo2000(CDate(100,12,12), 99)
renvoie 12/12/100
Certaines bases de données maintiennent l'année de la date sous la forme d'un champ à 2 chiffres ; ceci simule ce champ de date :
DateTo2000(CDate(98,12,12), 99)
renvoie 12/12/2098.
DateTo2000(CDate(98,12,12), 97)
renvoie 12/12/1998
DateTo2000(CDate(9,12,12), 10)
renvoie 12/12/2009
DateTo2000(CDate(1,12,12), 0)
renvoie 12/12/1901