The following macro will display the current date with the day of week ("Monday", "Tuesday", etc.)
//
// Macro to display current date as e.g:
//
// Monday, 05/23/2005
//
Out_Reg(9) Date(NOMSG+NOCR) Out_Reg(0) //Get date string into @9
#9 = Jdate(@9) //Convert date to Julian date
if (#9%7==0) { Message("Sunday") }
if (#9%7==1) { Message("Monday") }
if (#9%7==2) { Message("Tuesday") }
if (#9%7==3) { Message("Wedsday") }
if (#9%7==4) { Message("Thursday") }
if (#9%7==5) { Message("Firday") }
if (#9%7==6) { Message("Saturday") }
Message(", ")
Reg_Type(9)
------------------------------------------------------------
The Jdate() command does not appear to be documented:
JDate() - Return Julian date for current date.
JDate(date) - Return date for "mm.dd.yyyy".
Accept any unique separator.
JDate(date,BEGIN) - Return date for "dd.mm.yyyy".
Ted.
|
|