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/4/12---平成13年度版に修正 '2002/9/28---平成14年10月移行に対応 '雇用保険料の取得 Public Sub CalculateHoken(ByVal lngKyuyo As Long, ByVal intKubun As Integer, ByVal intSikyu As Integer) '引数[lngKyuyo]：給与総額 '引数[intKubun]：事業所区分；｢０」Ａ欄；「１」Ｂ欄 '引数[intSikyu]：支給区分；「０」給与；「１」賞与 If intSikyu = 1 Then If intKubun = 0 Then mdblKoyou = Int(CDbl(lngKyuyo * 0.007)) If intKubun = 1 Then mdblKoyou = Int(CDbl(lngKyuyo * 0.008)) ElseIf intSikyu = 0 Then Select Case lngKyuyo Case Is < 0 mdblKoyou = CDbl(0) Case lngKyuyo = 1 To 91999 If intKubun = 0 Then mdblKoyou = Int(CDbl(lngKyuyo * 0.007)) If intKubun = 1 Then mdblKoyou = Int(CDbl(lngKyuyo * 0.008)) 'Case lngKyuyo = 88000 To 92000 ' If intKubun = 0 Then mdblKoyou = CDbl(360) ' If intKubun = 1 Then mdblKoyou = CDbl(450) Case lngKyuyo = 91999 To 96000 If intKubun = 0 Then mdblKoyou = CDbl(658) If intKubun = 1 Then mdblKoyou = CDbl(752) Case lngKyuyo = 96000 To 99999 If intKubun = 0 Then mdblKoyou = CDbl(686) If intKubun = 1 Then mdblKoyou = CDbl(784) Case lngKyuyo = 100000 To 103999 If intKubun = 0 Then mdblKoyou = CDbl(714) If intKubun = 1 Then mdblKoyou = CDbl(816) Case lngKyuyo = 104000 To 107999 If intKubun = 0 Then mdblKoyou = CDbl(742) If intKubun = 1 Then mdblKoyou = CDbl(848) Case lngKyuyo = 108000 To 111999 If intKubun = 0 Then mdblKoyou = CDbl(770) If intKubun = 1 Then mdblKoyou = CDbl(880) Case lngKyuyo = 112000 To 115999 If intKubun = 0 Then mdblKoyou = CDbl(798) If intKubun = 1 Then mdblKoyou = CDbl(912) Case lngKyuyo = 116000 To 119999 If intKubun = 0 Then mdblKoyou = CDbl(826) If intKubun = 1 Then mdblKoyou = CDbl(944) Case lngKyuyo = 120000 To 123999 If intKubun = 0 Then mdblKoyou = CDbl(854) If intKubun = 1 Then mdblKoyou = CDbl(976) Case lngKyuyo = 124000 To 127999 If intKubun = 0 Then mdblKoyou = CDbl(882) If intKubun = 1 Then mdblKoyou = CDbl(1008) Case lngKyuyo = 128000 To 131999 If intKubun = 0 Then mdblKoyou = CDbl(910) If intKubun = 1 Then mdblKoyou = CDbl(1040) Case lngKyuyo = 132000 To 135999 If intKubun = 0 Then mdblKoyou = CDbl(938) If intKubun = 1 Then mdblKoyou = CDbl(1072) Case lngKyuyo = 136000 To 139999 If intKubun = 0 Then mdblKoyou = CDbl(966) If intKubun = 1 Then mdblKoyou = CDbl(1104) Case lngKyuyo = 140000 To 144999 If intKubun = 0 Then mdblKoyou = CDbl(998) If intKubun = 1 Then mdblKoyou = CDbl(1140) Case lngKyuyo = 145000 To 149999 If intKubun = 0 Then mdblKoyou = CDbl(1033) If intKubun = 1 Then mdblKoyou = CDbl(1180) Case lngKyuyo = 150000 To 154999 If intKubun = 0 Then mdblKoyou = CDbl(1068) If intKubun = 1 Then mdblKoyou = CDbl(1220) Case lngKyuyo = 155000 To 159999 If intKubun = 0 Then mdblKoyou = CDbl(1103) If intKubun = 1 Then mdblKoyou = CDbl(1260) Case lngKyuyo = 160000 To 164999 If intKubun = 0 Then mdblKoyou = CDbl(1138) If intKubun = 1 Then mdblKoyou = CDbl(1300) Case lngKyuyo = 165000 To 169999 If intKubun = 0 Then mdblKoyou = CDbl(1173) If intKubun = 1 Then mdblKoyou = CDbl(1340) Case lngKyuyo = 170000 To 174999 If intKubun = 0 Then mdblKoyou = CDbl(1208) If intKubun = 1 Then mdblKoyou = CDbl(1380) Case lngKyuyo = 175000 To 179999 If intKubun = 0 Then mdblKoyou = CDbl(1243) If intKubun = 1 Then mdblKoyou = CDbl(1420) Case lngKyuyo = 180000 To 185999 If intKubun = 0 Then mdblKoyou = CDbl(1281) If intKubun = 1 Then mdblKoyou = CDbl(1464) Case lngKyuyo = 186000 To 191999 If intKubun = 0 Then mdblKoyou = CDbl(1323) If intKubun = 1 Then mdblKoyou = CDbl(1512) Case lngKyuyo = 192000 To 197999 If intKubun = 0 Then mdblKoyou = CDbl(1365) If intKubun = 1 Then mdblKoyou = CDbl(1560) Case lngKyuyo = 198000 To 203999 If intKubun = 0 Then mdblKoyou = CDbl(1404) If intKubun = 1 Then mdblKoyou = CDbl(1608) Case lngKyuyo = 204000 To 209999 If intKubun = 0 Then mdblKoyou = CDbl(1449) If intKubun = 1 Then mdblKoyou = CDbl(1656) Case lngKyuyo = 210000 To 215999 If intKubun = 0 Then mdblKoyou = CDbl(1491) If intKubun = 1 Then mdblKoyou = CDbl(1704) Case lngKyuyo = 216000 To 222999 If intKubun = 0 Then mdblKoyou = CDbl(1537) If intKubun = 1 Then mdblKoyou = CDbl(1756) Case lngKyuyo = 223000 To 229999 If intKubun = 0 Then mdblKoyou = CDbl(1586) If intKubun = 1 Then mdblKoyou = CDbl(1812) Case lngKyuyo = 230000 To 237999 If intKubun = 0 Then mdblKoyou = CDbl(1638) If intKubun = 1 Then mdblKoyou = CDbl(1872) Case lngKyuyo = 238000 To 245999 If intKubun = 0 Then mdblKoyou = CDbl(1694) If intKubun = 1 Then mdblKoyou = CDbl(1936) Case lngKyuyo = 246000 To 254999 If intKubun = 0 Then mdblKoyou = CDbl(1754) If intKubun = 1 Then mdblKoyou = CDbl(2004) Case lngKyuyo = 255000 To 263999 If intKubun = 0 Then mdblKoyou = CDbl(1817) If intKubun = 1 Then mdblKoyou = CDbl(2076) Case lngKyuyo = 264000 To 273999 If intKubun = 0 Then mdblKoyou = CDbl(1883) If intKubun = 1 Then mdblKoyou = CDbl(2152) Case lngKyuyo = 274000 To 283999 If intKubun = 0 Then mdblKoyou = CDbl(1953) If intKubun = 1 Then mdblKoyou = CDbl(2232) Case lngKyuyo = 284000 To 294999 If intKubun = 0 Then mdblKoyou = CDbl(2027) If intKubun = 1 Then mdblKoyou = CDbl(2316) Case lngKyuyo = 295000 To 305999 If intKubun = 0 Then mdblKoyou = CDbl(2104) If intKubun = 1 Then mdblKoyou = CDbl(2404) Case lngKyuyo = 306000 To 317999 If intKubun = 0 Then mdblKoyou = CDbl(2184) If intKubun = 1 Then mdblKoyou = CDbl(2496) Case lngKyuyo = 318000 To 329999 If intKubun = 0 Then mdblKoyou = CDbl(2268) If intKubun = 1 Then mdblKoyou = CDbl(2592) Case lngKyuyo = 330000 To 342999 If intKubun = 0 Then mdblKoyou = CDbl(2356) If intKubun = 1 Then mdblKoyou = CDbl(2692) Case lngKyuyo = 343000 To 355999 If intKubun = 0 Then mdblKoyou = CDbl(2447) If intKubun = 1 Then mdblKoyou = CDbl(2796) Case lngKyuyo = 356000 To 369999 If intKubun = 0 Then mdblKoyou = CDbl(2541) If intKubun = 1 Then mdblKoyou = CDbl(2904) Case lngKyuyo = 370000 To 383999 If intKubun = 0 Then mdblKoyou = CDbl(2639) If intKubun = 1 Then mdblKoyou = CDbl(3016) Case lngKyuyo = 384000 To 398999 If intKubun = 0 Then mdblKoyou = CDbl(2741) If intKubun = 1 Then mdblKoyou = CDbl(3132) Case lngKyuyo = 399000 To 413999 If intKubun = 0 Then mdblKoyou = CDbl(2846) If intKubun = 1 Then mdblKoyou = CDbl(3252) Case lngKyuyo = 414000 To 429999 If intKubun = 0 Then mdblKoyou = CDbl(2954) If intKubun = 1 Then mdblKoyou = CDbl(3376) Case lngKyuyo = 430000 To 446999 If intKubun = 0 Then mdblKoyou = CDbl(3070) If intKubun = 1 Then mdblKoyou = CDbl(3508) Case lngKyuyo = 447000 To 464999 If intKubun = 0 Then mdblKoyou = CDbl(3192) If intKubun = 1 Then mdblKoyou = CDbl(3648) Case lngKyuyo = 465000 To 483999 If intKubun = 0 Then mdblKoyou = CDbl(3322) If intKubun = 1 Then mdblKoyou = CDbl(3796) Case Is >= 484000 If intKubun = 0 Then mdblKoyou = Int(CDbl(lngKyuyo * 0.007)) If intKubun = 1 Then mdblKoyou = Int(CDbl(lngKyuyo * 0.008)) Case Else If intKubun = 0 Then mdblKoyou = Int(CDbl(lngKyuyo * 0.007)) If intKubun = 1 Then mdblKoyou = Int(CDbl(lngKyuyo * 0.008)) End Select End If End Sub