Discussion :

[delph_le]

Bonjour,

J'importe un fichier texte (avec une instruction INFILE) dans SAS contenant des dates.
Mais certaines dates ne sont pas valides (exemple : 30/02/2013)
J'importe donc les champs de dates en format texte. Et je souhaite ensuite créer une nouvelle variable en format date (en utilisant la fonction INPUT) à partir de mon champ texte uniquement si la date est valide (sans avoir d'avertissements dans le journal de SAS).

Existe-t-il un moyen de tester si une date est valide, avant de la convertir ?

Merci de votre aide

delph_le

[olivier.decourt]

Bonjour.
Avant la conversion, il est toujours possible de prévoir des tests sur les éléments de la date (jour, mois et année) pris séparément par des SUBSTR. Mais il faut énumérer tous les cas possibles : c'est un peu fastidieux. D'ailleurs, à tous les coups, j'en ai oublié. Par exemple, j'ai supposé que l'ordre était toujours jj/mm/aaaa, avec 4 chiffres pour l'année et un slash comme séparateur.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
DATA work.test ;
  INPUT verdict :$3. dateCar :$10. ;
  FORMAT dateOK DDMMYY10. ;
  jj = SCAN(dateCar,1,"/")+0 ;
  mm = SCAN(dateCar,2,"/")+0 ;
  aa = SCAN(dateCar,3,"/")+0 ;
  IF    1582 <= aa <= 20000 
    AND 1 <= mm <= 12 
    AND (
        (1 <= jj <= 31 AND mm NOT IN (2,4,6,9,11) )
    OR  (1 <= jj < 31  AND mm IN (4,6,9,11) )
    OR  (mm = 2 AND jj < 29 AND (MOD(aa,4) > 0  OR MOD(aa,400) > 0) ) ) /* années non bissextiles */  
    OR  (mm = 2 AND jj < 30 AND (MOD(aa,4) = 0 AND MOD(aa,400) = 0 ) /* années bissextiles */
        ) THEN dateOK = MDY(mm,jj,aa) ; 
DATALINES ;
OK 31/01/2013
OK 25/04/2009
NON 30/02/2010
NON 31/09/2014
NON 32/03/1999
NON 01/01/0001
NON 29/02/2013
NON 29/02/1900
OK 31/12/9999
;
RUN ;

L'alternative est de réaliser automatiquement la conversion avec la fonction INPUT, et de récupérer à la volée le code erreur généré par SAS quand la date est incorrecte. On peut alors vérifier que l'erreur est due à la date et annuler le code erreur pour ne pas encombrer la Log. C'est cependant une méthode dangereuse puisqu'on annule l'édition d'erreurs. Et on voit dans l'exemple que certains cas comme le 01/01/0001 ne sont pas traités correctement.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
DATA work.test ;
  INPUT verdict :$3. dateCar :$10. ;
  FORMAT dateOK DDMMYY10. ;
  dateOK = INPUT(dateCar, DDMMYY10.) ;
  IF _error_=1 AND MISSING(dateOK) THEN _error_=0 ;
DATALINES ;
OK 31/01/2013
OK 25/04/2009
NON 30/02/2010
NON 31/09/2014
NON 32/03/1999
NON 01/01/0001
NON 29/02/2013
NON 29/02/1900
OK 31/12/9999
;
RUN ;

Si le besoin est récurrent, il serait peut-être rentable de construire une fonction (proc FCMP) ou un macro-programme pour faire l'ensemble des vérifications sur les éléments de la date. Et dans ce cas, prévoir vraiment tous les cas possibles.

[delph_le]

Bonjour,

Merci pour votre aide.

Parallèlement j'ai trouvé un format date ANYDTDTE10. (que j'ai utilisé dans le INPUT à la place de DDMMYY10.) qui ne génère pas de messages d'erreur dans le journal.
Pour trouver les dates non valides, du coup, je regarde les cas où ma date en texte est renseignée et ma "vraie" date est vide.

delph_le