Sigh. :)
Steffen Nurpmeso wrote in
<20220722231041.pjnox%[email protected]>:
...
Or this:
set v15-compat=y
define imap_data_last_year {
local set x y z=$1
vput ! x date '+%d-%b-%Y'
vput csop x trim $x
# or '+%d %b %Y' above, then no $ifs games
set ifs=-; eval vpospar set $x; unset ifs
vput vexpr y - $3 1
eval set $z=${1}-${2}-$y
}
call imap_data_last_year myvar
Well. We need a lot more good stuff.
--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)
