This REXX program runs on all REXX platforms; it displays actual date and time information.

Here is program ADATE:

/* REXX - ADATE */
/* Copyright Gerhard Mayer 2001,2002 */
/* Display actual date and time information - format:
   day-of-week - nn month yyyy - hh:mm:ss
*/

wday = Date('W'); sort = Date('S'); time = Time()
mon_str = 'January February March April May June' ,
          'July August September October November December'
day = Substr(sort,7,2)
mon = Word(mon_str,Substr(sort,5,2))
yea = Substr(sort,1,4)

Say wday '-' day mon yea '-' time
Exit
 

Examples:

ADATE              ==> Monday - 17 April 2000 - 14:18:39
 
 
 

Conditions of Use		©Gerhard Mayer 2001,2002
Download	Back	Homepage