a[2][0:4]
a[2][5:7]
'<th colspan="3">%s 発行分</th>' % a[2], file=fhtml
'<th colspan="3">%s年%s月 発行分</th>' % (a[2][0:4], a[2][5:7]), file=fhtml
'<th colspan="3">%s年%s月 発行分</th>' % (a[2][0:4], str(int(a[2][5:7]))), file=fhtml