Here are two scripts for handling dates. The first, MPEJD, converts today's date to a dates offset. The second, FMTJD, formats a jd to a mm/dd/yy. They use the Julian script from the jazz site repeated at the end. These are most useful for a format date which is an offset from today's date of n days. As in: !mpejd todayjd !fmtjd (todayjd-7) fjdcut !showvar !SPOOLF O@;SELEQ=[dev=dlp AND DATE < !fjdcut];SHOW;delete Is there a way of making these functions rather than scripts? MPEJD PARM rtnvar="" # Converts "today" to a ask Julian date. Handles leap years. # If "rtnvar" is passed the Julian date is returned in this var, else it # is written to $stdlist. julian _yearjd setvar _jd ( (hpyyyy-1973) * 1461) /4 + _yearjd + 428 if "!rtnvar" = "" then echo Jd for !hpdatef is: !_jd else setvar !rtnvar _jd endif deletevar _jd deletevar _yearjd FMTJD PARM jd, rtnvar="" # Formats jd to mm/dd/yyyy. # If "rtnvar" is passed the string is returned in this var, else it # is written to $stdlist. setvar _jdyt (!jd * 4 - 489) / 1461 setvar _jdmt !jd - !_jdyt *1461/4 setvar _jdm (10 * !_jdmt -1) / 306 -1 setvar _jdy !_jdyt + 1972 setvar _jdd !_jdmt - ( !_jdm + 1) * 153/5 if !_jdm > 12 then setvar !_jdm !_jdm - 12 setvar !_jdy = !_jdy +1 endif if "!rtnvar" = "" then echo Jd for !jd is: !_jdm/!_jdd/!_jdy else setvar !rtnvar "!_jdm/!_jdd/!_jdy" endif deletevar _jdyt deletevar _jdmt deletevar _jdm deletevar _jdy deletevar _jdd JULIAN PARM rtnvar="" # Converts "today" to a Julian date. Handles leap years. # If "rtnvar" is passed the Julian date is returned in this var, else it # is written to $stdlist. setvar _julian hpdate + & ![WORD("0 31 59 90 120 151 181 212 243 273 304 334",,hpmonth)] if hpyyyy mod 4 = 0 and (hpyyyy mod 100 <> 0 or hpyyyy mod 400 = 0) & and hpmonth >= 3 then setvar _julian _julian + 1 endif if "!rtnvar" = "" then echo Julian date for !hpdatef is: !_julian else setvar !rtnvar _julian endif deletevar _julian ------------------------------------------------------------------------ Larry Simonsen Phone: 801-489-2450 Flowserve Corporation Fax: 801-491-1750 PO Box 2200 http://www.flowserve.com Springville, UT 84663 e-mail: [log in to unmask] ------------------------------------------------------------------------