西暦→和暦　変換ルーチン

<%
Function wareki(seireki)

　seireki1 = Mid(seireki,1,4)

　if Mid(seireki,6,2) <> "" then
　　seireki2 = Mid(seireki,6,2)
　end if

　wareki=""
　If Not IsNumeric(seireki1) Then
　　Exit Function
　End If
　xYear=CLng(seireki1)

　If ( 1868 <= xYear ) And ( xYear <= 1911 ) Then
　　xDate=xYear-1867
　　If xDate=1 Then
　　　wareki = "明治元年"
　　　　if seireki2 <> "" then
　　　　　wareki = wareki & seireki2 & "月"
　　　　end if
　　Else
　　　　wareki = "明治" & CStr(xDate) & "年"
　　　　if seireki2 <> "" then
　　　　　　wareki = wareki & seireki2 & "月"
　　　　end if
　　End If
　　Exit Function
　End If

　If ( 1912 <= xYear ) And ( xYear <= 1925 ) Then
　　xDate=xYear-1911
　　If xDate=1 Then
　　　wareki = "大正元年"
　　　if seireki2 <> "" then
　　　　wareki = wareki & seireki2 & "月"
　　　end if
　　Else
　　　wareki = "大正" & CStr(xDate) & "年"
　　　if seireki2 <> "" then
　　　　wareki = wareki & seireki2 & "月"
　　　end if
　　End If
　　Exit Function
　End If

　If ( 1926 <= xYear ) And ( xYear <= 1988 ) Then
　　xDate=xYear-1925
　　If xDate=1 Then
　　　wareki = "昭和元年"
　　　if seireki2 <> "" then
　　　　wareki = wareki & seireki2 & "月"
　　　end if
　　Else
　　　wareki = "昭和" & CStr(xDate) & "年"
　　　if seireki2 <> "" then
　　　　wareki = wareki & seireki2 & "月"
　　　end if
　　End If
　　Exit Function
　End If

　If 1989 <= xYear Then
　　xDate=xYear-1988
　　If xDate=1 Then
　　　wareki = "平成元年"
　　　if seireki2 <> "" then
　　　　wareki = wareki & seireki2 & "月"
　　　end if
　　Else
　　　wareki = "平成" & CStr(xDate) & "年"
　　　if seireki2 <> "" then
　　　　wareki = wareki & seireki2 & "月"
　　　end if
　　End If
　　Exit Function
　End If
　wareki =""

End Function
%>