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 27 28 29 30 31 32 33 34
| data quot ;
FORMAT date WEEKDATE37. ;
DO i = 7 TO 0 BY -1 ;
date = TODAY()-i ;
DateJour = CATX('_',PUT(date,DOWNAME8.),PUT(DAY(date),3.),PUT(date,MONNAME9.),PUT(YEAR(date),4.)) ;
var1 = i ;
var2 = i+10 ;
var3 = i+20 ;
OUTPUT ;
END ;
DROP i ;
RUN ;
FILENAME OUTPUT "\\Peb4Sas\test_RWI\test.html" ;
ODS HTML BODY=OUTPUT STYLE=SASWEB;
Title1 C=BLUE F=brush font="Arial" Height=12 pt
"SUIVI QUOTIDIEN";
Footnote J=Center C=Black F=italic Font="Arial" Height=7 pt
"SOURCE : BDD";
Proc Report Data = Quot NOWD Split= "*"
STYLE(REPORT)=[PREHTML="<hr>" WIDTH=100 ]
STYLE(COLUMN)=[WIDTH=100 JUST=C];
Format Var1 Var2 Var3 NLNUM10.;
COLUMNS DateJour Var1 Var2 Var3 ;
DEFINE DateJour /STYLE(column)=[Cellwidth=5cm background=LTGRAY FONT_WEIGHT=Bold] "Date";
DEFINE Var1 / "Label Var1";
DEFINE Var2 / "Label Var2";
DEFINE Var3 / "Label Var3";
Run;
ODS HTML CLOSE; |
Partager