엑셀(excel) 비쥬얼 베이직(visual basic, vba) 심플 실비(실손보험, 실손의료비) 계산식
experience 실손보험 몇건 몰아서 등록할 일이 있어, 간단히 계산식(자기부담율, 최소공제금액에 따른 보상금액) 엑셀로 정리하려고 했으나, 검색이 잘 되지 않기에 간단하게 만듬.. Public Function fn보상금(본인부담, 자기부담율, 최소공제금액) As Double Dim 공제금액 As Double 공제금액 = 본인부담 * (자기부담율 / 100) Dim 공제금액제외_보상금 As Double Select Case (공제금액 - 최소공제금액) Case Is > 0 공제금액제외_보상금 = 본인부담 - 공제금액 Case Else 공제금액제외_보상금 = 본인부담 - 최소공제금액 End Select If 공제금액제외_보상금 < 0 Then fn보상금 = 0 Else fn보상금 = 공제금액제외_보상금 End If End Function