Option Explicit '雇用保険確定申告支援資料クラス 'プロパティの実体 Private mlngJan As Long '1月 Private mlngFeb As Long '2月 Private mlngMac As Long '3月 Private mlngApr As Long '4月 Private mlngMay As Long '5月 Private mlngJun As Long '6月 Private mlngJly As Long '7月 Private mlngAug As Long '8月 Private mlngSep As Long '9月 Private mlngOct As Long '10月 Private mlngNov As Long '11月 Private mlngDec As Long '12月 Private mlngBonus1 As Long '賞与1 Private mlngBonus2 As Long '賞与2 Private mlngBonus3 As Long '賞与3 Private mlngBonus4 As Long '賞与4 Private mlngBonus5 As Long '賞与5 Private mlngGoukei As Long '総合計 Private mlngRinji As Long '臨時合計 Private mlngRoujin As Long '老人合計 Public Property Let Jan(ByVal lngJan As Long) mlngJan = lngJan End Property Public Property Get Jan() As Long Jan = mlngJan End Property Public Property Let Feb(ByVal lngFeb As Long) mlngFeb = lngFeb End Property Public Property Get Feb() As Long Feb = mlngFeb End Property Public Property Let Mac(ByVal lngMac As Long) mlngMac = lngMac End Property Public Property Get Mac() As Long Mac = mlngMac End Property Public Property Let Apr(ByVal lngApr As Long) mlngApr = lngApr End Property Public Property Get Apr() As Long Apr = mlngApr End Property Public Property Let May(ByVal lngMay As Long) mlngMay = lngMay End Property Public Property Get May() As Long May = mlngMay End Property Public Property Let Jun(ByVal lngJun As Long) mlngJun = lngJun End Property Public Property Get Jun() As Long Jun = mlngJun End Property Public Property Let Jly(ByVal lngJly As Long) mlngJly = lngJly End Property Public Property Get Jly() As Long Jly = mlngJly End Property Public Property Let Aug(ByVal lngAug As Long) mlngAug = lngAug End Property Public Property Get Aug() As Long Aug = mlngAug End Property Public Property Let Sep(ByVal lngSep As Long) mlngSep = lngSep End Property Public Property Get Sep() As Long Sep = mlngSep End Property Public Property Let Oct(ByVal lngOct As Long) mlngOct = lngOct End Property Public Property Get Oct() As Long Oct = mlngOct End Property Public Property Let Nov(ByVal lngNov As Long) mlngNov = lngNov End Property Public Property Get Nov() As Long Nov = mlngNov End Property Public Property Let Dec(ByVal lngDec As Long) mlngDec = lngDec End Property Public Property Get Dec() As Long Dec = mlngDec End Property Public Property Let Bonus1(ByVal lngBonus1 As Long) mlngBonus1 = lngBonus1 End Property Public Property Get Bonus1() As Long Bonus1 = mlngBonus1 End Property Public Property Let Bonus2(ByVal lngBonus2 As Long) mlngBonus2 = lngBonus2 End Property Public Property Get Bonus2() As Long Bonus2 = mlngBonus2 End Property Public Property Let Bonus3(ByVal lngBonus3 As Long) mlngBonus3 = lngBonus3 End Property Public Property Get Bonus3() As Long Bonus3 = mlngBonus3 End Property Public Property Let Bonus4(ByVal lngBonus4 As Long) mlngBonus4 = lngBonus4 End Property Public Property Get Bonus4() As Long Bonus4 = mlngBonus4 End Property Public Property Let Bonus5(ByVal lngBonus5 As Long) mlngBonus5 = lngBonus5 End Property Public Property Get Bonus5() As Long Bonus5 = mlngBonus5 End Property Public Property Let Goukei(ByVal lngGoukei As Long) mlngGoukei = lngGoukei End Property Public Property Get Goukei() As Long Goukei = mlngGoukei End Property Public Property Let Rinji(ByVal lngRinji As Long) mlngRinji = lngRinji End Property Public Property Get Rinji() As Long Rinji = mlngRinji End Property Public Property Let Roujin(ByVal lngRoujin As Long) mlngRoujin = lngRoujin End Property Public Property Get Roujin() As Long Roujin = mlngRoujin End Property '合計 Public Sub DataSum() mlngGoukei = mlngGoukei + mlngJan mlngGoukei = mlngGoukei + mlngFeb mlngGoukei = mlngGoukei + mlngMac mlngGoukei = mlngGoukei + mlngApr mlngGoukei = mlngGoukei + mlngMay mlngGoukei = mlngGoukei + mlngJun mlngGoukei = mlngGoukei + mlngJly mlngGoukei = mlngGoukei + mlngAug mlngGoukei = mlngGoukei + mlngSep mlngGoukei = mlngGoukei + mlngOct mlngGoukei = mlngGoukei + mlngNov mlngGoukei = mlngGoukei + mlngDec mlngGoukei = mlngGoukei + mlngBonus1 mlngGoukei = mlngGoukei + mlngBonus2 mlngGoukei = mlngGoukei + mlngBonus3 mlngGoukei = mlngGoukei + mlngBonus4 mlngGoukei = mlngGoukei + mlngBonus5 End Sub '臨時合計 Public Sub RinjiSum() mlngRinji = mlngRinji + mlngJan mlngRinji = mlngRinji + mlngFeb mlngRinji = mlngRinji + mlngMac mlngRinji = mlngRinji + mlngApr mlngRinji = mlngRinji + mlngMay mlngRinji = mlngRinji + mlngJun mlngRinji = mlngRinji + mlngJly mlngRinji = mlngRinji + mlngAug mlngRinji = mlngRinji + mlngSep mlngRinji = mlngRinji + mlngOct mlngRinji = mlngRinji + mlngNov mlngRinji = mlngRinji + mlngDec mlngRinji = mlngRinji + mlngBonus1 mlngRinji = mlngRinji + mlngBonus2 mlngRinji = mlngRinji + mlngBonus3 mlngRinji = mlngRinji + mlngBonus4 mlngRinji = mlngRinji + mlngBonus5 End Sub '老人合計 Public Sub RoujinSum() mlngRoujin = mlngRoujin + mlngJan mlngRoujin = mlngRoujin + mlngFeb mlngRoujin = mlngRoujin + mlngMac mlngRoujin = mlngRoujin + mlngApr mlngRoujin = mlngRoujin + mlngMay mlngRoujin = mlngRoujin + mlngJun mlngRoujin = mlngRoujin + mlngJly mlngRoujin = mlngRoujin + mlngAug mlngRoujin = mlngRoujin + mlngSep mlngRoujin = mlngRoujin + mlngOct mlngRoujin = mlngRoujin + mlngNov mlngRoujin = mlngRoujin + mlngDec mlngRoujin = mlngRoujin + mlngBonus1 mlngRoujin = mlngRoujin + mlngBonus2 mlngRoujin = mlngRoujin + mlngBonus3 mlngRoujin = mlngRoujin + mlngBonus4 mlngRoujin = mlngRoujin + mlngBonus5 End Sub