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)