VERSION 5.00
Begin VB.Form Form1 
   Caption         =   "Form1"
   ClientHeight    =   3195
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   4680
   LinkTopic       =   "Form1"
   ScaleHeight     =   3195
   ScaleWidth      =   4680
   StartUpPosition =   3  'Windows の既定値
   Begin VB.CommandButton Command1 
      Caption         =   "Command1"
      Height          =   495
      Left            =   2280
      TabIndex        =   3
      Top             =   1440
      Width           =   1215
   End
   Begin VB.TextBox txtDD 
      Alignment       =   2  '中央揃え
      BeginProperty Font 
         Name            =   "ＭＳ Ｐゴシック"
         Size            =   12
         Charset         =   128
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   3360
      TabIndex        =   2
      Text            =   "21"
      Top             =   480
      Width           =   975
   End
   Begin VB.TextBox txtMM 
      Alignment       =   2  '中央揃え
      BeginProperty Font 
         Name            =   "ＭＳ Ｐゴシック"
         Size            =   12
         Charset         =   128
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   1920
      TabIndex        =   1
      Text            =   "7"
      Top             =   480
      Width           =   1095
   End
   Begin VB.TextBox txtYYYY 
      Alignment       =   2  '中央揃え
      BeginProperty Font 
         Name            =   "ＭＳ Ｐゴシック"
         Size            =   12
         Charset         =   128
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   120
      TabIndex        =   0
      Text            =   "1957"
      Top             =   480
      Width           =   1335
   End
   Begin VB.Label Label4 
      Caption         =   "日"
      BeginProperty Font 
         Name            =   "ＭＳ Ｐゴシック"
         Size            =   12
         Charset         =   128
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   4320
      TabIndex        =   8
      Top             =   600
      Width           =   375
   End
   Begin VB.Label Label3 
      Caption         =   "月"
      BeginProperty Font 
         Name            =   "ＭＳ Ｐゴシック"
         Size            =   12
         Charset         =   128
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Left            =   3120
      TabIndex        =   7
      Top             =   600
      Width           =   375
   End
   Begin VB.Label Label2 
      Caption         =   "年"
      BeginProperty Font 
         Name            =   "ＭＳ Ｐゴシック"
         Size            =   12
         Charset         =   128
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   1560
      TabIndex        =   6
      Top             =   600
      Width           =   375
   End
   Begin VB.Label Label1 
      Caption         =   "曜日"
      BeginProperty Font 
         Name            =   "ＭＳ Ｐゴシック"
         Size            =   12
         Charset         =   128
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   495
      Left            =   2880
      TabIndex        =   5
      Top             =   2400
      Width           =   735
   End
   Begin VB.Label lblYoubi 
      Caption         =   "Label1"
      BeginProperty Font 
         Name            =   "ＭＳ Ｐゴシック"
         Size            =   12
         Charset         =   128
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   495
      Left            =   2280
      TabIndex        =   4
      Top             =   2400
      Width           =   495
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Function DayWeek(yyyy As Integer, mm As Integer, dd As Integer) As String
    
    Dim wday(6) As String

    wday(0) = "日"
    wday(1) = "月"
    wday(2) = "火"
    wday(3) = "水"
    wday(4) = "木"
    wday(5) = "金"
    wday(6) = "土"
    
    lblYoubi = ""

'E1 チェック

    If yyyy < 1900 Then DayWeek = "E1"
    If 2299 < yyyy Then DayWeek = "E1"
    If mm < 1 Then DayWeek = "E1"
    If 12 < mm Then DayWeek = "E1"
    If dd < 1 Then DayWeek = "E1"
    If 31 < dd Then DayWeek = "E1"
       
'E2 チェック

    If dd = 31 Then
        If mm = 2 Then DayWeek = "E2"
        If mm = 4 Then DayWeek = "E2"
        If mm = 6 Then DayWeek = "E2"
        If mm = 9 Then DayWeek = "E2"
        If mm = 11 Then DayWeek = "E2"
    End If
    
    If dd = 30 Then
        If mm = 2 Then DayWeek = "E2"
    End If
    
'E3 チェック

    If mm = 2 And dd = 29 Then
        If Not ((yyyy Mod 4) And Not (yyyy Mod 100) And (yyyy Mod 400)) Then
            DayWeek = "E3"
        End If
    End If

'エラーなら復帰
    If DayWeek = "" Then
        
    
      
'曜日を求める　ツェラーの公式を利用
    If mm <= 2 Then
        yyyy = yyyy - 1
        mm = mm + 12
    End If
    wk = yyyy + yyyy \ 4 - yyyy \ 100 + yyyy \ 400 + (13 * mm + 8) \ 5 + dd
    wk = wk Mod 7
    
    DayWeek = wday(wk)
    
    End If

End Function

Private Sub Command1_Click()
    Dim yyyy As Integer
    Dim mm As Integer
    Dim dd As Integer
   
    yyyy = Val(txtYYYY)
    mm = Val(txtMM)
    dd = Val(txtDD)
   
    lblYoubi = DayWeek(yyyy, mm, dd)

End Sub