No wait!!
Sorry i am in total hurry all the time.
Steffen Nurpmeso wrote in
<20220723180423.angiw%[email protected]>:
...
| 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
This must be "\eval vpospar set $x", of course.
| \vput vexpr y - $3 1
| \eval set $z=${1}-${2}-$y
| \end
|}
|
| call imap_data_last_year myvar
| #..use myvar
Have a good time you all.
--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)
