interactive にやるんなら calendar で日付を mark して
region 間で M-=

lisp でのやり方は知らん