klwpで元号表示

平成も残り1年を切り、この機会に西暦表記に統一する動きがあります。
が、そんな流れに逆行してklwpで元号表記を演算で表示させようといろいろ調べても、ずばりの式がなく、自作することとなりました。


・昭和
　昭和$df(yy,r1925y)$年
　　ただし、これは99年まで。100年以降は「yy」を「yyy」にする必要あり。
・平成
　平成$df(yy,a12y)$年


ポイントは現在の西暦を基準に「何年前」「何年後」の下二桁でもって表現することです。


これを応用すれば、
・皇紀　
　皇紀$df(yyyy,a660y)$年


と、調子こいてそれ以外の暦に当てはめようと調べたら、複雑過ぎて挫折しました。

実際の生活において、意外と使えたり。昭和生まれの自分にとって、「何年前」とかの計算で活用してます。