엑셀(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