'好感度システム
    If Month(t) = 12 Then '1　////もし12月なら〜///////
        Timer10.Enabled = True
        
        '///////////ここから早苗誕生日設定/////////////
        If Day(t) = 18 Then '2
            If love = 1 Then '3
                w = "あなたのお名前は？"
                Text1.Visible = True
                Text1.Top = 5040
                Text1.left = 0
                Command3.Visible = True
                Command3.Top = 5040
                Command3.left = 2280
            ElseIf love < 100 Then '3
            
                If Hour(t) > 4 And Hour(t) < 12 Then '4
                    w = "おはようございます、" & youname & "さん" & vbNewLine & "今日はお姉ちゃんの誕生日で。"
                ElseIf (Hour(t) > 11) And (Hour(t) < 18) Then
                    w = "こんにちは、" & youname & "さん" & vbNewLine & "今日はお姉ちゃんの誕生日です"
                Else
                    w = "こんばんは、" & youname & "さん" & vbNewLine & "今日はお姉ちゃんの誕生日です"
                End If '/4
            Else '3
                If Hour(t) > 4 And Hour(t) < 12 Then '5
                    w = "おはようございます、" & "お兄ちゃん" & vbNewLine & "今日はお姉ちゃんの誕生日です"
                ElseIf (Hour(t) > 11) And (Hour(t) < 18) Then
                    w = "こんにちは、" & "お兄ちゃん" & vbNewLine & "今日はお姉ちゃんの誕生日です"
                Else
                    w = "こんばんは、" & "お兄ちゃん" & vbNewLine & "今日はお姉ちゃんの誕生日です"
                End If '/5
            End If '/3
        '//////////ここまで早苗誕生日設定/////////////
        '///////////ここからクリスマス設定////////////////
        ElseIf Day(t) = 24 Or 25 Then '2のElseif
                Timer10.Enabled = True
                    If Day(t) = 24 Then  '24日設定
                        '////////24日設定//////
                        If love = 1 Then '6
                            Timer10.Enabled = True
                            w = "あなたのお名前は？"
                            Text1.Visible = True
                            Text1.Top = 5040
                            Text1.left = 0
                            Command3.Visible = True
                            Command3.Top = 5040
                            Command3.left = 2280
                        ElseIf love < 100 Then
                            Timer10.Enabled = True
        
                            If Hour(t) > 4 And Hour(t) < 12 Then '7
                                w = "おはようございます、" & youname & "さん" & vbNewLine & "今日はクリスマスイブです"
                            ElseIf (Hour(t) > 11) And (Hour(t) < 18) Then
                                w = "こんにちは、" & youname & "さん" & vbNewLine & "今日はクリスマスイブです"
                        Else
                                w = "こんばんは、" & youname & "さん" & vbNewLine & "今日はクリスマスイブです"
                            End If '/7
                        Else
                            Timer10.Enabled = True
                                If Hour(t) > 4 And Hour(t) < 12 Then '8
                                    w = "おはようございます、" & "お兄ちゃん" & vbNewLine & "今日はクリスマスイブです"
                                ElseIf (Hour(t) > 11) And (Hour(t) < 18) Then
                                    w = "こんにちは、" & "お兄ちゃん" & vbNewLine & "今日はクリスマスイブです"
                                Else
                                    w = "こんばんは、" & "お兄ちゃん" & vbNewLine & "今日はクリスマスイブです"
                                End If '/8
                        End If '/6
                     '///////ここまで24日設定//////
                    '///////ここから25日設定//////
                    ElseIf Day(t) = 25 Then
                        If love = 1 Then '6
                            Timer10.Enabled = True
                            w = "あなたのお名前は？"
                            Text1.Visible = True
                            Text1.Top = 5040
                            Text1.left = 0
                            Command3.Visible = True
                            Command3.Top = 5040
                            Command3.left = 2280
                        ElseIf love < 100 Then
                            Timer10.Enabled = True
        
                            If Hour(t) > 4 And Hour(t) < 12 Then '7
                                w = "おはようございます、" & youname & "さん" & vbNewLine & "今日はクリスマスです"
                            ElseIf (Hour(t) > 11) And (Hour(t) < 18) Then
                                w = "こんにちは、" & youname & "さん" & vbNewLine & "今日はクリスマスです"
                        Else
                                w = "こんばんは、" & youname & "さん" & vbNewLine & "今日はクリスマスです"
                            End If '/7
                        Else
                            Timer10.Enabled = True
                                If Hour(t) > 4 And Hour(t) < 12 Then '8
                                    w = "おはようございます、" & "お兄ちゃん" & vbNewLine & "今日はクリスマスです"
                                ElseIf (Hour(t) > 11) And (Hour(t) < 18) Then
                                    w = "こんにちは、" & "お兄ちゃん" & vbNewLine & "今日はクリスマスです"
                                Else
                                    w = "こんばんは、" & "お兄ちゃん" & vbNewLine & "今日はクリスマスです"
                                End If '/8
                        End If '/6
                    
                    '///////ここまで25日設定//////



                

            '//////////////////ここまでクリスマス設定///////////////////////
                
        '//////////12月その他設定//////////////////
        Else '２のElse
             Timer10.Enabled = True
            If love = 1 Then '6
                Timer10.Enabled = True
                w = "あなたのお名前は？"
                Text1.Visible = True
                Text1.Top = 5040
                Text1.left = 0
                Command3.Visible = True
                Command3.Top = 5040
                Command3.left = 2280
            ElseIf love < 100 Then
                Timer10.Enabled = True
        
                If Hour(t) > 4 And Hour(t) < 12 Then '7
                    w = "おはようございます、" & youname & "さん"
                ElseIf (Hour(t) > 11) And (Hour(t) < 18) Then
                    w = "こんにちは、" & youname & "さん"
                Else
                    w = "こんばんは、" & youname & "さん"
                End If '/7
            Else
                Timer10.Enabled = True
                    If Hour(t) > 4 And Hour(t) < 12 Then '8
                        w = "おはようございます、" & "お兄ちゃん"
                    ElseIf (Hour(t) > 11) And (Hour(t) < 18) Then
                        w = "こんにちは、" & "お兄ちゃん"
                    Else
                        w = "こんばんは、" & "お兄ちゃん"
                    End If '/8
            End If '/6
            End If 'クリスマス設定
        End If '/2
    '///////////ここまで12月そのほか設定////////////////
    Else '1のElse
        Timer10.Enabled = True
        If love = 1 Then '6
            Timer10.Enabled = True
            w = "あなたのお名前は？"
            Text1.Visible = True
            Text1.Top = 5040
            Text1.left = 0
            Command3.Visible = True
            Command3.Top = 5040
            Command3.left = 2280
        ElseIf love < 100 Then
            Timer10.Enabled = True
        
            If Hour(t) > 4 And Hour(t) < 12 Then '7
                w = "おはようございます、" & youname & "さん"
            ElseIf (Hour(t) > 11) And (Hour(t) < 18) Then
                w = "こんにちは、" & youname & "さん"
            Else
                w = "こんばんは、" & youname & "さん"
            End If '/7
        Else
            Timer10.Enabled = True
                If Hour(t) > 4 And Hour(t) < 12 Then '8
                    w = "おはようございます、" & "お兄ちゃん"
                ElseIf (Hour(t) > 11) And (Hour(t) < 18) Then
                    w = "こんにちは、" & "お兄ちゃん"
                Else
                    w = "こんばんは、" & "お兄ちゃん"
                End If '/8
        End If '/6
    End If '/1
    '///////////////ここまで12月///////////////////