インプットボックスに西暦か和暦で年数を入れて、 干支を計算します。

【実行画面】




< VBScript >

'//////////////////////////////////////////////////////////
'//
'//     年を入れて干支を計算する
'//                                         by Shimizu


Dim eto
Dim nen
Dim ng
Dim nn
Dim nengo
Dim res

'// 干支の配列
eto  = Array("申(さる)","酉(とり)","戌(いぬ)",_
    "亥(いのしし)","子(みずみ)","丑(うし)",_
    "寅(とら)","卯(うさぎ)","辰(たつ)",_
    "巳(へび)","午(うま)","未(ひつじ)")

Do
    nen = InputBox("年を入れて干支を計算しましょう" & vbCR &_
        "(必ず半角小文字)" & vbCR &_
        "和暦の場合 m:明治 t:大正 s:昭和 h:平成"_
        & vbCR & vbCR & "例)2000" & vbCR & "  h12",_
        "干支の計算")

    If nen = "" Then
        Exit Do

    Else

        '西暦に変換
        '表示用文字列作成
        ng = Left(nen,1)
        nn = Mid(nen,2)
        Select Case ng
            Case "m"
                nen = 1867 + nn
                nengo = "明治"
            Case "t"
                nen = 1911 + nn
                nengo = "大正"
            Case "s"
                nen = 1925 + nn
                nengo = "昭和"
            Case "h"
                nen = 1988 + nn
                nengo = "平成"
            Case else
                nn = nen
                nengo = "西暦"
        End Select

        res = MsgBox(nengo & nn & "年は" & eto(nen mod 12) &_
             "です。",64)

    End If

Loop




戻る