Evaluer opérations arithmétiques avec chiffres ayant format COMMA24.4 : problème virgule avec sysevalf [Résolu]

[aminao]

Bonjour tt le monde,

J'ai un problème à évaluer des opérations arithmétiques ou les chiffres ont le format numérique COMMA24.4 à cause de la virgule, y'a-t-il une manière à remédier ce prob? Merci d'avance.

Code :

%sysevalf(1,200.0000-3,210.0000);

[olivier.decourt]

Il faut supprimer la virgule, soit en changeant le format au moment où la macro-variable est créée (proc SQL ?), soit avec

Code :

%SYSFUNC(COMPRESS(&maMV,%STR(,)))

Bon courage.

[aminao]

Bonjour,

Je l'ai essayé mais dans mon cas ca marche po. J'ai une table "Chiffres" ou il y'a un champ "Montant" qui a le format numérique COMMA24.4.

Montant
-------------
-1,018.9985
-------------
Quand j'utilise la fonction compress pour supprimer la virgule, il affiche une erreur (il rend que le signe -). Merci pour vos réponses.

Code :

1
2
3
4
5
6
7
8
%macro h;
proc sql; SELECT c INTO :v FROM test;quit
%let vx=%SYSFUNC(COMPRESS(&v,%STR(,)));
proc sql;
CREATE TABLE teste(c int format=BSTX24.4);
 INSERT INTO teste VALUES (&vx);quit;
%mend;
%h;

[aminao]

Bonjour,

J'ai essayé d'utiliser la fonction translate

Code :

%let vx=%SYSFUNC(translate(&v,'',','));

Mais il me rend que 1 à la place de 1018.9985

[olivier.decourt]

Désolé pour le code qui ne fonctionne pas, je n'ai pas SAS sur mon PC pour cause de vacances.
Tu peux toujours virer le format dans la proc SQL où tu crées la macro-variable.

Code :

1
2
3
4
5
proc sql; 
SELECT c FORMAT=BEST32.
INTO :v 
FROM test;
quit ;

Sinon, tu passes par une étape DATA. Là il n'y a pas de question de formats.

Code :

1
2
3
4
DATA _NULL_ ;
  SET test (OBS=1) ;
  CALL SYMPUTX("v", c) ;
RUN ;

[bahraoui]

Bonjour,

Pourquoi tu ne changes pas le format avant de créer les macros variables?

[bahraoui]

Code :

1
2
3
4
5
6
 
%let a=1,200.0000;
%let b=3,210.0000;
%let a1=%SYSFUNC(COMPRESS(%NRBQUOTE (&a),%STR(,)));
%let b1=%SYSFUNC(COMPRESS(%NRBQUOTE (&b),%STR(,)));
%put &a1 &b1;

[aminao]

Bonjour,

Je ne veux po changer dans la structure de la table, j'ai trouvé une solution, je remplace la virgule par blank et après supprimer le blank.Merci pour vos réponses.

Code :

1
2
3
4
5
6
7
8
9
%macro h;
proc sql; 
CREATE TABLE test (c int format=COMMA24.4);INSERT INTO test VALUES (1018.9985);
SELECT c INTO :v FROM test;quit;
%let vc=%sysfunc(compress(%sysfunc(compress(%SYSFUNC(translate("&v",%str( ),%str(,))),%str(%"))),%str( )));
%let vf=%sysevalf(&vc);
 
%mend;
%h;

[s_a_m]

pourtant plus simple avec ce que bahraoui t'as proposé :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
 
%macro h;
proc sql noprint; 
CREATE TABLE test (c int format=COMMA24.4 ,c1 int format=COMMA24.4);INSERT INTO test VALUES (1018.9985,1020.9985);
SELECT c,c1 INTO : v ,: v1 FROM test;quit;
%let vc= %sysfunc(compress(%quote(&v.),','));
%let vc1= %sysfunc(compress(%quote(&v1.),','));
%let vf=%sysevalf(&vc + &vc1);
%put  ¤¤¤¤¤¤¤¤¤¤¤ &vf.;
 
%mend;
%h;

[olivier.decourt]

C'est même encore plus simple avec

Code :

1
2
3
4
5
6
7
8
9
10
11
%macro h;
proc sql noprint; 
CREATE TABLE test (c int format=COMMA24.4 ,c1 int format=COMMA24.4);INSERT INTO test VALUES (1018.9985,1020.9985);
SELECT c FORMAT=BEST32.,
           c1 FORMAT=BEST32.
  INTO : v ,: v1 
FROM test;quit;
%let vf=%sysevalf(&v + &v1);
%put  ¤¤¤¤¤¤¤¤¤¤¤ &vf.;
%mend;
%h;