誕生日から年齢と干支を求める : Excel(エクセル)

Excel Tipsメニューに戻る

スポンサードリンク



E4に生年月日を入力し、「実行」ボタンをクリックしてください。年齢はDateDiff関数を使いネンの差で計算しています。今年の誕生日がまだ来ていない場合はマイナスしています。干支は年を12で割った余りで求められます。割り切れる場合は「申」、そして1から順に「酉、戌、亥、子、丑、寅、卯、辰、巳、午、羊」になります。

ExcelシートのVBAコード

Private Sub CommandButton1_Click()
    Dim nage As Integer
    Dim seto As String
    
    If Range("E4") = "" Then
        MsgBox "生年月日を入力してください。"
        Exit Sub
    End If
    
    If Not IsDate(Range("E4")) Then
        MsgBox "生年月日が日付型ではありません。"
        Exit Sub
    End If
    
    '年齢の計算
    If Date < DateSerial(Year(Now), Month(Range("E4")), Day(Range("E4"))) Then
        nage = DateDiff("yyyy", Range("E4"), Now) - 1
    Else
        nage = DateDiff("yyyy", Range("E4"), Now)
    End If
    
    Range("D6") = "年齢"
    Range("E6") = nage

    '干支の計算
    Select Case Year(Range("E4")) Mod 12
        Case 0: seto = "申"
        Case 1: seto = "酉"
        Case 2: seto = "戌"
        Case 3: seto = "亥"
        Case 4: seto = "子"
        Case 5: seto = "丑"
        Case 6: seto = "寅"
        Case 7: seto = "卯"
        Case 8: seto = "辰"
        Case 9: seto = "巳"
        Case 10: seto = "午"
        Case 11: seto = "羊"
    End Select
    Range("D7") = "干支"
    Range("E7") = seto
End Sub

スポンサードリンク



Excel実行画面

「実行」ボタンをクリックすると、入力されている生年月日をチェックし、問題なければ年齢と干支を算出します。
生年月日を入力

Excel Tipsメニューに戻る

スポンサードリンク





■■■
このサイトの内容を利用して発生した、いかなる問題にも一切責任は負いませんのでご了承下さい
■■■
当ホームページに掲載されているあらゆる内容の無許可転載・転用を禁止します


関連コンテンツ

Copyright (c) Excel-Excel ! All rights reserved