13/01/27 12:59:11.59 qlcqRLoM0
if ($g=="享和" && 1<=#y && #y<=3) $r=str(#y+1803);
else if ($g=="文化" && 1<=#y && #y<=14) $r=str(#y+1817);
else if ($g=="文政" && 1<=#y && #y<=11) $r=str(#y+1829);
else if ($g=="天保" && 1<=#y && #y<=14) $r=str(#y+1843);
else if ($g=="弘化" && 1<=#y && #y<=4) $r=str(#y+1847);
else if ($g=="嘉永" && 1<=#y && #y<=6) $r=str(#y+1853);
else if ($g=="安政" && 1<=#y && #y<=6) $r=str(#y+1859);
else if ($g=="万延" && 1<=#y && #y<=1) $r=str(#y+1860);
else if ($g=="文久" && 1<=#y && #y<=3) $r=str(#y+1863);
else if ($g=="元治" && 1<=#y && #y<=1) $r=str(#y+1864);
else if ($g=="慶応" && 1<=#y && #y<=3) $r=str(#y+1867);
else if ($g=="明治" && 1<=#y && #y<=45) $r=str(#y+1867);
else if ($g=="大正" && 1<=#y && #y<=15) $r=str(#y+1911);
else if ($g=="昭和" && 1<=#y && #y<=64) $r=str(#y+1925);
else if ($g=="平成" && 1<=#y && #y<=100) $r=str(#y+1988);
if ($r!="") $msg=$g+str(#y)+" → "+$r;
//（２/３ つづく）