Option Explicit
'所得税控除クラス
'主に人的控除

'プロパティの実体
Public mlngKoujo() As Long
'(0)基礎控除
'(1)一般の寡婦（寡夫）
'(2)特別の寡婦
'(3)老年者:2005/4/1移行廃止
'(4)勤労学生
'(5)配偶者控除
'(6)老人控除対象配偶者
'(7)扶養控除
'(8)特定扶養家族
'(9)同居老親等
'(10)同居老親以外の老人扶養家族
'(11)一般の障害者
'(12)特別障害者
'(13)同居特別障害者
'(14)本人が一般の障害者
'(15)本人が特別の障害者


'プロパティの設定
Public Sub GetData(ByVal objws As Worksheet, ByVal lngRow As Long)

'引数[objWS]：ワークシート
'引数[lngRow]：レコード

    Dim i As Integer '整数型カウンタ
    
    For i = 0 To 15
        mlngKoujo(i) = CLng(objws.Cells(lngRow, i + 1).Value)
    Next
    mlongkoujo(3) = 0 '2005/4/30 edit --- 老年者控除廃止に伴い扶養に人数に含めない
    
End Sub

'プロパティの値を書き出し
Public Sub LetData(ByVal objws As Worksheet, ByVal lngRow As Long)

'引数[objWS]：ワークシート
'引数[lngRow]：レコード

    Dim i As Integer                '整数型カウンタ
    
    For i = 0 To 15
        objws.Cells(lngRow, bytCol + i).Value = mlngKoujo(i)
    Next
    
End Sub

'クラスのインスタンス時
Private Sub Class_Initialize()

    '配列型プロパティのメモリの確保
    ReDim mlngKoujo(15) As Long
    
End Sub

'クラスの開放
Private Sub Class_Terminate()

    '配列の開放
    Erase mlbgkoujo
    
End Sub