年から干支を求める ： Access

干支を求めるには、年を12で割った余りで取得できます。余りを求めるにはMod関数を使います



BackHome　BackTips　Backメニュー

■ 実行Accessフォーム
年を入力し［干支］ボタンをクリックします。
［干支］ボタンをクリックします

結果の干支がメッセージボックスで表示されます。
干支がメッセージボックスで表示されます
■ Access VBA 実行コード例


Option Compare Database
Option Explicit

Private Sub MyGetEto(yy As Long)
    Dim s1 As String
   
    Select Case yy Mod 12
        Case 0: s1 = "申"
        Case 1: s1 = "酉"
        Case 2: s1 = "戌"
        Case 3: s1 = "亥"
        Case 4: s1 = "子"
        Case 5: s1 = "丑"
        Case 6: s1 = "寅"
        Case 7: s1 = "卯"
        Case 8: s1 = "辰"
        Case 9: s1 = "巳"
        Case 10: s1 = "午"
        Case 11: s1 = "未"
    End Select
    MsgBox s1 & "です。"
End Sub

Private Sub コマンド0_Click()
    If Nz(Me!テキスト1, "") = "" Then
        MsgBox "干支を求める年を入力してください。"
        Me!テキスト1.SetFocus
        Exit Sub
    End If
    MyGetEto Me!テキスト1
End Sub


BackHome　BackTips　Backメニュー

Copyright(C) FeedSoft