X-Git-Url: http://git.osdn.net/view?a=blobdiff_plain;f=src%2Fltjtbook.cls;h=32a6ab7610c0f8e292872298105ceea283f6733f;hb=871900f0dca66ffbd2b0d6802c5d83a119b89448;hp=b56c3b8516d4a894fdd5e90b60b233eb59aeb7c0;hpb=a7be6f4df86e01159a541aeee6b0ff3cead3f53f;p=luatex-ja%2Fluatexja.git

diff --git a/src/ltjtbook.cls b/src/ltjtbook.cls
index b56c3b8..32a6ab7 100644
--- a/src/ltjtbook.cls
+++ b/src/ltjtbook.cls
@@ -902,28 +902,32 @@
 \newif\if西暦 \西暦true
 \def\西暦{\西暦true}
 \def\和暦{\西暦false}
-\newcount\heisei \heisei\year \advance\heisei-1988\relax
+\def\pltx@today@year@#1{%
+  \ifnum\numexpr\year-#1=1 元\else
+\ifnum\ltjgetparameter{direction}=3 \kansuji\numexpr\year-#1\relax
+\else \number\numexpr\year-#1\relax\fi
+  \fi å¹´
+}
+\def\pltx@today@year{%
+  \ifnum\numexpr\year*10000+\month*100+\day<19890108
+昭和\pltx@today@year@{1925}%
+  \else\ifnum\numexpr\year*10000+\month*100+\day<20190501
+平成\pltx@today@year@{1988}%
+  \else
+〓〓\pltx@today@year@{2018}%
+  \fi\fi}
 \def\today{{%
+  \if西暦
+    \ifnum\ltjgetparameter{direction}=3 \kansuji\year\else\number\year\fi å¹´
+  \else
+\pltx@today@year
+  \fi
   \ifnum\ltjgetparameter{direction}=3
-    \if西暦
-      \kansuji\year å¹´
-      \kansuji\month 月
-      \kansuji\day 日
-    \else
-      平成\ifnum\heisei=1 元年\else\kansuji\heisei 年\fi
-      \kansuji\month 月
-      \kansuji\day 日
-    \fi
+\kansuji\month 月
+    \kansuji\day 日
   \else
-    \if西暦
-      \number\year~å¹´
-      \number\month~月
-      \number\day~日
-    \else
-      平成\ifnum\heisei=1 元年\else\number\heisei~年\fi
-      \number\month~月
-      \number\day~日
-    \fi
+    \number\month~月
+    \number\day~日
   \fi}}
 \newcommand{\prepartname}{第}
 \newcommand{\postpartname}{部}