6 lines
373 B
Rexx
6 lines
373 B
Rexx
/*REXX pgm shows current date: yyyy-mm-dd & Dayofweek, Month dd, yyyy*/
|
|
say date('I') /*yyyy-mm-dd with leading zeroes.*/
|
|
|
|
say date('W')"," date('M') word(date(), 1)"," left(date('S'),4)
|
|
/* [↑] dayofweek Month dd, yyyy*/
|
|
/*stick a fork in it, we're done.*/
|