Use ElseIf in a function : Function « Language Basics « VBA / Excel / Access / Word






Use ElseIf in a function

 
Public Function LoanCriteria(loanAmt As Single, numPayments As Integer, _
         moPayment As Integer, totInterest As Single) As Boolean
    If Abs(moPayment) > 400 Then
        LoanCriteria = False
    ElseIf Abs(totInterest) > (0.1 * loanAmt) Then
         LoanCriteria = False
    ElseIf numPayments > 48 Then
        LoanCriteria = False
    Else
        LoanCriteria = True
    End If
End Function

 








Related examples in the same category

1.Writing VBA Function Procedures
2.A function returns a value to whomever called it. We can recast the previous sub into a function as follows:
3.Call user-defined function in MsgBox
4.Executing a Function Procedure from a Subroutine
5.A function returns a value to whomever called it.
6.One of simplest possible custom functions
7.function takes two arguments's length and width's and calculates the total area by multiplying them together
8.Convert Fahrenheit To Celsius
9.Select Case in a function
10.A function with one argument