Home > Excel VBA | Useful Technic > Excel で生まれてからの日数&干支を求めるマクロ(

Excel で生まれてからの日数&干支を求めるマクロ(

Posted by: WebMaster
2008年4月29日 13:23
Excel VBA | Useful Technic

生まれてからの、日数と週数、そして干支を求めるマクロです。

This sample code find out number of days&week from your birth.

Sub DateOfBirth()
''------------------------------------------------------
''---------29 April, 2008 ----------------------------
''---------Samurai-Logic.com----------------------
''-------------------------------------------------------
Dim BirthDay As Date, Days(2), Eto As String
Dim ErrorMsg As Integer
On Error GoTo ErrorMsg
BirthDay = Application.InputBox("誕生日を入力してください" & vbCrLf & _
"INPUT YOUR DATE OF BIRTH" & vbCrLf & "1980/01/01 平成５年１月１日", "DateOfBIrth", "1990/01/01")
Days(0) = Date - BirthDay
Days(1) = CInt(Days(0) / 7)
Days(2) = Year(BirthDay) Mod 12
Select Case Days(2)
 Case "0":  Eto = "申": Case "1": Eto = "酉": Case "2": Eto = "戌"
 Case "3":  Eto = "亥": Case "4": Eto = "子": Case "5": Eto = "丑":
 Case "6":  Eto = "寅": Case "7": Eto = "卯": Case "8": Eto = "辰":
 Case "9":  Eto = "巳": Case "10": Eto = "午": Case "11":  Eto = "未"
End Select
 MsgBox "あなたが生まれてから今日で        " & vbCrLf & vbCrLf & Days(0) & "日目、" & Days(1) & _
"週目です。" & vbCrLf & vbCrLf & "干支は" & Eto & "です。", vbInformation + vbOKOnly
Erase Days
Exit Sub
ErrorMsg:
 MsgBox "入力した日付が間違っています。", vbQuestion + vbOKOnly
Erase Days
End Sub

Comments:0

Amazon.co.jp ウィジェット

Home > Excel VBA | Useful Technic > Excel で生まれてからの日数&干支を求めるマクロ(

Return to page top