ここまで書いた。
(let ((key (string-to-number
(cdr (assq 'artid
navi2ch-article-current-article))))
(now (float-time))
(res (length navi2ch-article-message-list)))
(format "%01.2f" (* (/ res (- now key)) 60 60 24)))