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)