Option Explicit
'配偶者特別控除額計算クラス
'プロパティは、メンバー以外アクセスできない

'プロパティの実体
Private mlngKoujo As Long       '配偶者特別控除

Public Property Get Koujo() As Long

    Koujo = mlngKoujo
    
End Property

Public Property Let Koujo(ByVal lngKoujo As Long)

    mlngKoujo = lngKoujo
    
End Property

'配偶者特別控除額の計算
Public Sub CalculateKoujo(ByVal lngKingaku As Long)

'引数[lngKingaku]：所得金額

    Select Case lngKingaku
        Case lngKingaku = 0 To 380000
            mlngKoujo = CLng(0)
        Case lngKingaku = 380001 To 399999
            mlngKoujo = CLng(380000)
        Case lngKingaku = 400000 To 449999
            mlngKoujo = CLng(360000)
        Case lngKingaku = 450000 To 499999
            mlngKoujo = CLng(310000)
        Case lngKingaku = 500000 To 549999
            mlngKoujo = CLng(260000)
        Case lngKingaku = 550000 To 599999
            mlngKoujo = CLng(210000)
        Case lngKingaku = 600000 To 649999
            mlngKoujo = CLng(160000)
        Case lngKingaku = 650000 To 699999
            mlngKoujo = CLng(110000)
        Case lngKingaku = 700000 To 749999
            mlngKoujo = CLng(60000)
        Case lngKingaku = 750000 To 759999
            mlngKoujo = CLng(30000)
        Case Is >= 760000
            mlngKoujo = CLng(0)
        Case Else
            mlngKoujo = CLng(0)
    End Select
    
End Sub