Option Explicit
'雇用保険クラス
'プロパティはメンバー以外アクセスできない

'プロパティの実体
Private mdblKoyou As Double     '雇用保険
Private mlngKyuyo As Long       '給与
Private mintKubun As Integer    '区分

Public Property Get KoyouHoken() As Double

    KoyouHoken = mdblKoyou
    
End Property

Public Property Let KoyouHoken(ByVal dblKoyou As Double)

    mdblKoyou = dblKoyou
    
End Property


'----------  雇用保険算出  ----------
'2001/04/12---平成13年度版に修正
'2002/09/28---平成14年10月移行に対応
'2005/04/01---平成17年4月1日以降の料率に対応
'2007/04/20---平成19年4月19日改定料率に対応
'2009/04/01---平成21年3月27日改正料率に対応

'雇用保険料の取得
Public Sub CalculateHoken(ByVal lngKyuyo As Long, ByVal intKubun As Integer, ByVal intSikyu As Integer)

'引数[lngKyuyo]：給与総額
'引数[intKubun]：事業所区分；｢０」Ａ欄；「１」Ｂ欄
'引数[intSikyu]：支給区分；「０」給与；「１」賞与:平成17年4月1日以降不要

    If intSikyu = 0 Or intSikyu = 1 Then '計算不具合が起きないように条件分岐させる
        If intKubun = 0 Then mdblKoyou = Int(CDbl(lngKyuyo * 0.004))
        If intKubun = 1 Then mdblKoyou = Int(CDbl(lngKyuyo * 0.005))
    Else
        If intKubun = 0 Then mdblKoyou = Int(CDbl(lngKyuyo * 0.004))
        If intKubun = 1 Then mdblKoyou = Int(CDbl(lngKyuyo * 0.005))
    End If
    
End Sub