And one more..

as i have forgotten to add "local" command modifiers.
So this thing there should work now, and later even better.

  set v15-compat=y

  define imap_data_last_year {
     \local set x y z=$1

     # v14.10 or later?
     \if "$version-hexnum" -ge 0x0E00A000
        \vput vexpr x date-utc
        \eval local set $x
        \vput vexpr dutc_year - $dutc_year 1
        \vput vexpr x epoch $dutc_year $dutc_month $dutc_day
        \eval local set $x
        \vput vexpr x date-utc $epoch_sec
        \eval set $x # local yet
        \eval set $z=${dutc_day}-${dutc_month_abbrev}-${dutc_year}
     \else
        \vput ! x date '+%d %b %Y'
        \vput csop x trim $x
        \vpospar set $x
        \vput vexpr y - $3 1
        \eval set $z=${1}-${2}-$y
     \end
  }

  call imap_data_last_year myvar
  #..use myvar

--steffen
|
|Der Kragenbaer,                The moon bear,
|der holt sich munter           he cheerfully and one by one
|einen nach dem anderen runter  wa.ks himself off
|(By Robert Gernhardt)

Reply via email to