<!DOCTYPE html>
<html lang="en">
<head>
<meta charset="UTF-8">
<meta name="viewport" content="width=device-width, initial-scale=1.0">
<meta name="description" content="VB6Parse Library Reference - npv - Financial">
<title>npv - Financial - VB6Parse Library Reference</title>
<link rel="stylesheet" href="../../../assets/css/style.css">
<link rel="stylesheet" href="../../../assets/css/docs-style.css">
<link rel="stylesheet" href="https://cdnjs.cloudflare.com/ajax/libs/highlight.js/11.9.0/styles/github-dark.min.css">
<script src="../../../assets/js/theme-switcher.js"></script>
<script src="https://cdnjs.cloudflare.com/ajax/libs/highlight.js/11.9.0/highlight.min.js"></script>
<script src="https://cdnjs.cloudflare.com/ajax/libs/highlight.js/11.9.0/languages/vbnet.min.js"></script>
<script>hljs.highlightAll();</script>
</head>
<body>
<header class="docs-header">
<div class="container">
<h1><a href="../../../index.html">VB6Parse</a> / <a href="../../../library/index.html">Library</a> / <a href="../../../library/functions/financial/index.html">Financial</a> / npv</h1>
<p class="tagline">VB6 Library Reference</p>
</div>
</header>
<nav class="docs-nav">
<div class="container">
<a href="../../../index.html">Home</a>
<a href="../../../library/index.html">Library Reference</a>
<a href="../../../documentation.html">Documentation</a>
<a href="https://docs.rs/vb6parse" target="_blank">API Docs</a>
<a href="https://github.com/scriptandcompile/vb6parse" target="_blank">GitHub</a>
<button id="theme-toggle" class="theme-toggle" aria-label="Toggle theme">
<span class="theme-icon">🌙</span>
</button>
</div>
</nav>
<main class="container">
<article class="library-item">
<h1 id="npv-function">NPV Function</h1>
<p>Returns a Double specifying the net present value of an investment based on a series of periodic cash flows (payments and receipts) and a discount rate.</p>
<h2 id="syntax">Syntax</h2>
<pre><code class="language-vbnet">NPV(rate, values())</code></pre>
<h2 id="parameters">Parameters</h2>
<ul>
<li><strong>rate</strong> (Required) - Double specifying discount rate over the length of the period, expressed as a decimal. For example, use 0.10 for 10 percent.</li>
<li><strong><code>values()</code></strong> (Required) - Array of Double specifying cash flow values. The array must contain at least one negative value (a payment) and one positive value (a receipt). The values must be equally spaced in time and occur at the end of each period.</li>
</ul>
<h2 id="return-value">Return Value</h2>
<p>Returns a <strong>Double</strong> specifying the net present value of the investment.</p>
<h2 id="remarks">Remarks</h2>
<p>The NPV (Net Present Value) function calculates the present value of a series of future cash flows, discounted at a specified rate. It's a fundamental tool in capital budgeting and investment analysis.</p>
<h3 id="key-characteristics">Key Characteristics:</h3>
<ul>
<li>Returns present value of future cash flows</li>
<li>All cash flows must be equally spaced in time</li>
<li>Cash flows occur at the end of each period</li>
<li>First cash flow (period 0) is NOT included - use separate calculation for initial investment</li>
<li>Negative values represent cash outflows (payments)</li>
<li>Positive values represent cash inflows (receipts)</li>
<li>Rate should match the period of cash flows (e.g., monthly rate for monthly cash flows)</li>
<li>Higher discount rates result in lower NPV</li>
<li>NPV > 0 generally indicates a good investment</li>
<li>NPV = 0 means investment breaks even</li>
<li>NPV < 0 indicates investment loses money</li>
</ul>
<h3 id="important-note-on-initial-investment">Important Note on Initial Investment:</h3>
<p>Unlike some implementations, VB6's NPV does NOT include an initial investment (period 0) in the values array.
If you have an initial investment, subtract it from the NPV result:</p>
<pre><code class="language-vbnet">netPV = NPV(rate, cashFlows()) - initialInvestment</code></pre>
<h3 id="common-use-cases">Common Use Cases:</h3>
<ul>
<li>Capital budgeting decisions</li>
<li>Investment project evaluation</li>
<li>Equipment purchase analysis</li>
<li>Real estate investment analysis</li>
<li>Business valuation</li>
<li>Compare alternative investments</li>
<li>Determine project profitability</li>
<li>Calculate present value of future revenues</li>
</ul>
<h2 id="typical-uses">Typical Uses</h2>
<ol>
<li><strong>Investment Evaluation</strong> - Determine if an investment is worthwhile</li>
<li><strong>Project Comparison</strong> - Compare multiple investment opportunities</li>
<li><strong>Capital Budgeting</strong> - Decide which projects to fund</li>
<li><strong>Equipment Purchases</strong> - Evaluate equipment vs. leasing decisions</li>
<li><strong>Real Estate</strong> - Analyze property investment returns</li>
<li><strong>Business Acquisition</strong> - Value businesses based on projected cash flows</li>
<li><strong>Cost-Benefit Analysis</strong> - Compare costs and benefits over time</li>
<li><strong>Break-even Analysis</strong> - Find discount rate where NPV = 0 (IRR)</li>
</ol>
<h2 id="basic-examples">Basic Examples</h2>
<pre><code class="language-vbnet">' Example 1: Simple investment with 5-year cash flows
Dim cashFlows(1 To 5) As Double
Dim npvResult As Double
Dim initialInvestment As Double
initialInvestment = 10000
cashFlows(1) = 3000
cashFlows(2) = 3000
cashFlows(3) = 3000
cashFlows(4) = 3000
cashFlows(5) = 3000
' Calculate NPV at 10% discount rate
npvResult = NPV(0.1, cashFlows) - initialInvestment
' Result: approximately $1,372 (good investment)</code></pre>
<pre><code class="language-vbnet">' Example 2: Evaluate equipment purchase
Dim savings(1 To 3) As Double
Dim equipmentCost As Double
Dim netValue As Double
equipmentCost = 5000
savings(1) = 2000 ' Year 1 savings
savings(2) = 2500 ' Year 2 savings
savings(3) = 3000 ' Year 3 savings
netValue = NPV(0.08, savings) - equipmentCost
If netValue > 0 Then
MsgBox "Good investment: NPV = $" & Format(netValue, "#,##0.00")
End If</code></pre>
<pre><code class="language-vbnet">' Example 3: Compare two projects
Dim project1(1 To 4) As Double
Dim project2(1 To 4) As Double
Dim npv1 As Double, npv2 As Double
' Project 1: Higher initial investment, steady returns
project1(1) = 4000: project1(2) = 4000: project1(3) = 4000: project1(4) = 4000
npv1 = NPV(0.1, project1) - 12000
' Project 2: Lower investment, increasing returns
project2(1) = 2000: project2(2) = 3000: project2(3) = 4000: project2(4) = 5000
npv2 = NPV(0.1, project2) - 10000
If npv2 > npv1 Then
MsgBox "Project 2 has better NPV"
End If</code></pre>
<pre><code class="language-vbnet">' Example 4: Real estate investment analysis
Dim rentalIncome(1 To 10) As Double
Dim purchasePrice As Double
Dim i As Integer
purchasePrice = 200000
' Annual rental income for 10 years
For i = 1 To 10
rentalIncome(i) = 24000 ' $2,000/month
Next i
Dim propertyNPV As Double
propertyNPV = NPV(0.08, rentalIncome) - purchasePrice
MsgBox "Property NPV: $" & Format(propertyNPV, "#,##0.00")</code></pre>
<h2 id="common-patterns">Common Patterns</h2>
<pre><code class="language-vbnet">' Pattern 1: Basic NPV calculation with initial investment
Function CalculateInvestmentNPV(initialCost As Double, _
cashFlows() As Double, _
discountRate As Double) As Double
CalculateInvestmentNPV = NPV(discountRate, cashFlows) - initialCost
End Function</code></pre>
<pre><code class="language-vbnet">' Pattern 2: Investment decision helper
Function ShouldInvest(initialInvestment As Double, _
cashFlows() As Double, _
requiredReturn As Double) As Boolean
Dim npvResult As Double
npvResult = NPV(requiredReturn, cashFlows) - initialInvestment
ShouldInvest = (npvResult > 0)
End Function</code></pre>
<pre><code class="language-vbnet">' Pattern 3: Sensitivity analysis
Sub AnalyzeNPVSensitivity(initialCost As Double, cashFlows() As Double)
Dim rate As Double
Dim npvResult As Double
Debug.Print "NPV Sensitivity Analysis"
Debug.Print String(40, "-")
For rate = 0.05 To 0.20 Step 0.01
npvResult = NPV(rate, cashFlows) - initialCost
Debug.Print Format(rate * 100, "0.0") & "%: $" & Format(npvResult, "#,##0.00")
Next rate
End Sub</code></pre>
<pre><code class="language-vbnet">' Pattern 4: Profitability Index
Function CalculateProfitabilityIndex(initialInvestment As Double, _
cashFlows() As Double, _
discountRate As Double) As Double
Dim presentValue As Double
presentValue = NPV(discountRate, cashFlows)
If initialInvestment = 0 Then
CalculateProfitabilityIndex = 0
Else
CalculateProfitabilityIndex = presentValue / initialInvestment
End If
End Function</code></pre>
<pre><code class="language-vbnet">' Pattern 5: Compare multiple projects
Function SelectBestProject(projects As Collection, discountRate As Double) As String
Dim project As Variant
Dim bestNPV As Double
Dim bestProject As String
Dim currentNPV As Double
bestNPV = -999999
For Each project In projects
currentNPV = NPV(discountRate, project.CashFlows) - project.InitialCost
If currentNPV > bestNPV Then
bestNPV = currentNPV
bestProject = project.Name
End If
Next project
SelectBestProject = bestProject
End Function</code></pre>
<pre><code class="language-vbnet">' Pattern 6: Break-even discount rate (approximation of IRR)
Function FindBreakEvenRate(initialInvestment As Double, _
cashFlows() As Double) As Double
Dim rate As Double
Dim npvResult As Double
Dim increment As Double
increment = 0.001
For rate = 0 To 1 Step increment
npvResult = NPV(rate, cashFlows) - initialInvestment
If npvResult <= 0 Then
FindBreakEvenRate = rate
Exit Function
End If
Next rate
FindBreakEvenRate = -1 ' Not found
End Function</code></pre>
<pre><code class="language-vbnet">' Pattern 7: NPV with growing cash flows
Function NPVWithGrowth(initialInvestment As Double, _
firstYearCashFlow As Double, _
growthRate As Double, _
years As Integer, _
discountRate As Double) As Double
Dim cashFlows() As Double
Dim i As Integer
ReDim cashFlows(1 To years)
For i = 1 To years
cashFlows(i) = firstYearCashFlow * ((1 + growthRate) ^ (i - 1))
Next i
NPVWithGrowth = NPV(discountRate, cashFlows) - initialInvestment
End Function</code></pre>
<pre><code class="language-vbnet">' Pattern 8: Payback period with NPV
Function CalculateDiscountedPayback(initialInvestment As Double, _
cashFlows() As Double, _
discountRate As Double) As Double
Dim i As Integer
Dim cumulativeNPV As Double
Dim periodCashFlows() As Double
For i = LBound(cashFlows) To UBound(cashFlows)
ReDim periodCashFlows(LBound(cashFlows) To i)
Dim j As Integer
For j = LBound(cashFlows) To i
periodCashFlows(j) = cashFlows(j)
Next j
cumulativeNPV = NPV(discountRate, periodCashFlows) - initialInvestment
If cumulativeNPV >= 0 Then
CalculateDiscountedPayback = i
Exit Function
End If
Next i
CalculateDiscountedPayback = -1 ' Never pays back
End Function</code></pre>
<pre><code class="language-vbnet">' Pattern 9: NPV with terminal value
Function NPVWithTerminalValue(initialInvestment As Double, _
cashFlows() As Double, _
terminalValue As Double, _
discountRate As Double) As Double
Dim i As Integer
Dim modifiedCashFlows() As Double
ReDim modifiedCashFlows(LBound(cashFlows) To UBound(cashFlows))
For i = LBound(cashFlows) To UBound(cashFlows) - 1
modifiedCashFlows(i) = cashFlows(i)
Next i
' Add terminal value to final period
modifiedCashFlows(UBound(cashFlows)) = cashFlows(UBound(cashFlows)) + terminalValue
NPVWithTerminalValue = NPV(discountRate, modifiedCashFlows) - initialInvestment
End Function</code></pre>
<pre><code class="language-vbnet">' Pattern 10: Risk-adjusted NPV
Function RiskAdjustedNPV(initialInvestment As Double, _
expectedCashFlows() As Double, _
riskFreeRate As Double, _
riskPremium As Double) As Double
Dim adjustedRate As Double
adjustedRate = riskFreeRate + riskPremium
RiskAdjustedNPV = NPV(adjustedRate, expectedCashFlows) - initialInvestment
End Function</code></pre>
<h2 id="advanced-usage">Advanced Usage</h2>
<h3 id="example-1-investment-analyzer-class">Example 1: Investment Analyzer Class</h3>
<pre><code class="language-vbnet">' Class: InvestmentAnalyzer
' Comprehensive investment analysis with NPV and related metrics
Option Explicit
Private m_initialInvestment As Double
Private m_cashFlows() As Double
Private m_discountRate As Double
Public Sub Initialize(initialInvestment As Double, _
cashFlows() As Double, _
discountRate As Double)
m_initialInvestment = initialInvestment
m_cashFlows = cashFlows
m_discountRate = discountRate
End Sub
Public Function GetNPV() As Double
GetNPV = NPV(m_discountRate, m_cashFlows) - m_initialInvestment
End Function
Public Function GetProfitabilityIndex() As Double
Dim pvCashFlows As Double
pvCashFlows = NPV(m_discountRate, m_cashFlows)
GetProfitabilityIndex = pvCashFlows / m_initialInvestment
End Function
Public Function IsAcceptable() As Boolean
IsAcceptable = (GetNPV() > 0)
End Function
Public Function GetApproximateIRR() As Double
Dim rate As Double
Dim npvResult As Double
Dim lastRate As Double
Dim lastNPV As Double
' Binary search for IRR
Dim lowRate As Double, highRate As Double
lowRate = 0
highRate = 1
Do While (highRate - lowRate) > 0.0001
rate = (lowRate + highRate) / 2
npvResult = NPV(rate, m_cashFlows) - m_initialInvestment
If npvResult > 0 Then
lowRate = rate
Else
highRate = rate
End If
Loop
GetApproximateIRR = rate
End Function
Public Function GenerateReport() As String
Dim report As String
Dim npvValue As Double
Dim pi As Double
Dim irr As Double
npvValue = GetNPV()
pi = GetProfitabilityIndex()
irr = GetApproximateIRR()
report = "Investment Analysis Report" & vbCrLf
report = report & String(50, "=") & vbCrLf & vbCrLf
report = report & "Initial Investment: $" & Format(m_initialInvestment, "#,##0.00") & vbCrLf
report = report & "Discount Rate: " & Format(m_discountRate * 100, "0.00") & "%" & vbCrLf
report = report & "Number of Periods: " & UBound(m_cashFlows) & vbCrLf & vbCrLf
report = report & "Net Present Value: $" & Format(npvValue, "#,##0.00") & vbCrLf
report = report & "Profitability Index: " & Format(pi, "0.00") & vbCrLf
report = report & "Approx. IRR: " & Format(irr * 100, "0.00") & "%" & vbCrLf & vbCrLf
If IsAcceptable() Then
report = report & "Recommendation: ACCEPT - Positive NPV"
Else
report = report & "Recommendation: REJECT - Negative NPV"
End If
GenerateReport = report
End Function
Public Function RunSensitivityAnalysis() As String
Dim result As String
Dim rate As Double
Dim npvValue As Double
result = "NPV Sensitivity to Discount Rate" & vbCrLf
result = result & String(40, "-") & vbCrLf
For rate = 0.05 To 0.25 Step 0.05
npvValue = NPV(rate, m_cashFlows) - m_initialInvestment
result = result & Format(rate * 100, "0.0") & "%: $" & _
Format(npvValue, "#,##0.00") & vbCrLf
Next rate
RunSensitivityAnalysis = result
End Function</code></pre>
<h3 id="example-2-project-portfolio-manager">Example 2: Project Portfolio Manager</h3>
<pre><code class="language-vbnet">' Class: ProjectPortfolioManager
' Manages and ranks multiple investment projects
Option Explicit
Private Type Project
name As String
initialInvestment As Double
cashFlows() As Double
npv As Double
pi As Double
rank As Integer
End Type
Private m_projects As Collection
Private m_discountRate As Double
Public Sub Initialize(discountRate As Double)
Set m_projects = New Collection
m_discountRate = discountRate
End Sub
Public Sub AddProject(name As String, _
initialInvestment As Double, _
cashFlows() As Double)
Dim proj As Project
proj.name = name
proj.initialInvestment = initialInvestment
proj.cashFlows = cashFlows
proj.npv = NPV(m_discountRate, cashFlows) - initialInvestment
Dim pvCashFlows As Double
pvCashFlows = NPV(m_discountRate, cashFlows)
proj.pi = pvCashFlows / initialInvestment
m_projects.Add proj, name
End Sub
Public Sub RankByNPV()
' Simple ranking based on NPV
Dim projects() As Project
Dim i As Integer, j As Integer
ReDim projects(1 To m_projects.Count)
For i = 1 To m_projects.Count
projects(i) = m_projects(i)
Next i
' Sort by NPV (descending)
For i = 1 To UBound(projects) - 1
For j = i + 1 To UBound(projects)
If projects(j).npv > projects(i).npv Then
Dim temp As Project
temp = projects(i)
projects(i) = projects(j)
projects(j) = temp
End If
Next j
Next i
' Assign ranks
For i = 1 To UBound(projects)
projects(i).rank = i
Next i
End Sub
Public Function GetPortfolioNPV() As Double
Dim proj As Project
Dim totalNPV As Double
Dim i As Integer
totalNPV = 0
For i = 1 To m_projects.Count
proj = m_projects(i)
totalNPV = totalNPV + proj.npv
Next i
GetPortfolioNPV = totalNPV
End Function
Public Function SelectProjectsWithBudget(budget As Double) As Collection
Dim selectedProjects As New Collection
Dim remainingBudget As Double
Dim proj As Project
Dim i As Integer
RankByNPV
remainingBudget = budget
For i = 1 To m_projects.Count
proj = m_projects(i)
If proj.npv > 0 And proj.initialInvestment <= remainingBudget Then
selectedProjects.Add proj
remainingBudget = remainingBudget - proj.initialInvestment
End If
Next i
Set SelectProjectsWithBudget = selectedProjects
End Function
Public Function GenerateRankingReport() As String
Dim report As String
Dim proj As Project
Dim i As Integer
RankByNPV
report = "Project Portfolio Ranking" & vbCrLf
report = report & String(80, "=") & vbCrLf
report = report & "Rank Project Name Investment NPV PI" & vbCrLf
report = report & String(80, "-") & vbCrLf
For i = 1 To m_projects.Count
proj = m_projects(i)
report = report & Format(proj.rank, "0") & " "
report = report & Left(proj.name & String(20, " "), 20) & " "
report = report & Format(proj.initialInvestment, "$#,##0") & " "
report = report & Format(proj.npv, "$#,##0") & " "
report = report & Format(proj.pi, "0.00") & vbCrLf
Next i
report = report & vbCrLf & "Total Portfolio NPV: $" & _
Format(GetPortfolioNPV(), "#,##0.00")
GenerateRankingReport = report
End Function</code></pre>
<h3 id="example-3-real-estate-investment-analyzer">Example 3: Real Estate Investment Analyzer</h3>
<pre><code class="language-vbnet">' Module: RealEstateAnalyzer
' Analyzes real estate investments using NPV
Option Explicit
Public Function AnalyzeRentalProperty(purchasePrice As Double, _
annualRent As Double, _
annualExpenses As Double, _
holdingYears As Integer, _
appreciationRate As Double, _
discountRate As Double) As String
Dim cashFlows() As Double
Dim i As Integer
Dim salePrice As Double
Dim npvValue As Double
Dim result As String
ReDim cashFlows(1 To holdingYears)
' Calculate annual net cash flows
For i = 1 To holdingYears - 1
cashFlows(i) = annualRent - annualExpenses
Next i
' Final year includes property sale
salePrice = purchasePrice * ((1 + appreciationRate) ^ holdingYears)
cashFlows(holdingYears) = (annualRent - annualExpenses) + salePrice
npvValue = NPV(discountRate, cashFlows) - purchasePrice
result = "Real Estate Investment Analysis" & vbCrLf
result = result & String(50, "=") & vbCrLf
result = result & "Purchase Price: $" & Format(purchasePrice, "#,##0") & vbCrLf
result = result & "Annual Rent: $" & Format(annualRent, "#,##0") & vbCrLf
result = result & "Annual Expenses: $" & Format(annualExpenses, "#,##0") & vbCrLf
result = result & "Holding Period: " & holdingYears & " years" & vbCrLf
result = result & "Appreciation Rate: " & Format(appreciationRate * 100, "0.0") & "%" & vbCrLf
result = result & "Discount Rate: " & Format(discountRate * 100, "0.0") & "%" & vbCrLf
result = result & "Estimated Sale Price: $" & Format(salePrice, "#,##0") & vbCrLf & vbCrLf
result = result & "Net Present Value: $" & Format(npvValue, "#,##0.00") & vbCrLf
If npvValue > 0 Then
result = result & "Recommendation: Good investment opportunity"
Else
result = result & "Recommendation: Consider other opportunities"
End If
AnalyzeRentalProperty = result
End Function
Public Function CompareBuyVsLease(equipmentCost As Double, _
leaseCosts() As Double, _
buyingCashFlows() As Double, _
discountRate As Double) As String
Dim buyNPV As Double
Dim leaseNPV As Double
Dim result As String
buyNPV = NPV(discountRate, buyingCashFlows) - equipmentCost
leaseNPV = NPV(discountRate, leaseCosts)
result = "Buy vs. Lease Analysis" & vbCrLf
result = result & String(40, "-") & vbCrLf
result = result & "Buying NPV: $" & Format(buyNPV, "#,##0.00") & vbCrLf
result = result & "Leasing NPV: $" & Format(leaseNPV, "#,##0.00") & vbCrLf
result = result & vbCrLf
If buyNPV > leaseNPV Then
result = result & "Recommendation: BUY (NPV advantage: $" & _
Format(buyNPV - leaseNPV, "#,##0.00") & ")"
Else
result = result & "Recommendation: LEASE (NPV advantage: $" & _
Format(leaseNPV - buyNPV, "#,##0.00") & ")"
End If
CompareBuyVsLease = result
End Function</code></pre>
<h3 id="example-4-business-valuation-tool">Example 4: Business Valuation Tool</h3>
<pre><code class="language-vbnet">' Class: BusinessValuationTool
' Values businesses using discounted cash flow (DCF) method
Option Explicit
Private m_projectedCashFlows() As Double
Private m_terminalValue As Double
Private m_discountRate As Double
Public Sub ProjectCashFlows(baseCashFlow As Double, _
growthRate As Double, _
years As Integer)
Dim i As Integer
ReDim m_projectedCashFlows(1 To years)
For i = 1 To years
m_projectedCashFlows(i) = baseCashFlow * ((1 + growthRate) ^ i)
Next i
End Sub
Public Sub CalculateTerminalValue(finalYearCashFlow As Double, _
perpetualGrowthRate As Double, _
discountRate As Double)
' Terminal value using Gordon Growth Model
m_terminalValue = (finalYearCashFlow * (1 + perpetualGrowthRate)) / _
(discountRate - perpetualGrowthRate)
End Sub
Public Function GetEnterpriseValue(discountRate As Double) As Double
Dim i As Integer
Dim cashFlowsWithTerminal() As Double
m_discountRate = discountRate
' Create array including terminal value
ReDim cashFlowsWithTerminal(1 To UBound(m_projectedCashFlows))
For i = 1 To UBound(m_projectedCashFlows) - 1
cashFlowsWithTerminal(i) = m_projectedCashFlows(i)
Next i
' Add terminal value to final year
cashFlowsWithTerminal(UBound(m_projectedCashFlows)) = _
m_projectedCashFlows(UBound(m_projectedCashFlows)) + m_terminalValue
GetEnterpriseValue = NPV(discountRate, cashFlowsWithTerminal)
End Function
Public Function GetEquityValue(enterpriseValue As Double, _
debt As Double, _
cash As Double) As Double
GetEquityValue = enterpriseValue - debt + cash
End Function
Public Function GenerateValuationReport(companyName As String, _
debt As Double, _
cash As Double) As String
Dim report As String
Dim ev As Double
Dim equity As Double
ev = GetEnterpriseValue(m_discountRate)
equity = GetEquityValue(ev, debt, cash)
report = "Business Valuation: " & companyName & vbCrLf
report = report & String(60, "=") & vbCrLf & vbCrLf
report = report & "Discounted Cash Flow Analysis" & vbCrLf
report = report & "Discount Rate (WACC): " & Format(m_discountRate * 100, "0.00") & "%" & vbCrLf
report = report & "Projection Period: " & UBound(m_projectedCashFlows) & " years" & vbCrLf
report = report & vbCrLf
report = report & "Enterprise Value: $" & Format(ev, "#,##0,000") & vbCrLf
report = report & "Less: Debt: $" & Format(debt, "#,##0,000") & vbCrLf
report = report & "Plus: Cash: $" & Format(cash, "#,##0,000") & vbCrLf
report = report & String(60, "-") & vbCrLf
report = report & "Equity Value: $" & Format(equity, "#,##0,000")
GenerateValuationReport = report
End Function</code></pre>
<h2 id="error-handling">Error Handling</h2>
<pre><code class="language-vbnet">On Error Resume Next
Dim npvResult As Double
npvResult = NPV(rate, cashFlows())
If Err.Number <> 0 Then
MsgBox "Error calculating NPV: " & Err.Description & vbCrLf & _
"Ensure cash flows array is properly dimensioned and rate is valid."
End If
On Error GoTo 0</code></pre>
<h2 id="performance-considerations">Performance Considerations</h2>
<ul>
<li>NPV calculation is relatively fast</li>
<li>Performance scales linearly with number of cash flows</li>
<li>For large arrays (1000+ periods), consider optimization</li>
<li>Caching results when using same inputs repeatedly</li>
<li>More efficient than manually discounting each period</li>
</ul>
<h2 id="best-practices">Best Practices</h2>
<ol>
<li><strong>Remember initial investment</strong> - Subtract it from NPV result (not in array)</li>
<li><strong>Use appropriate discount rate</strong> - Match to risk and period</li>
<li><strong>Validate cash flow array</strong> - Ensure proper dimensioning</li>
<li><strong>Check for mixed signs</strong> - Need both positive and negative flows</li>
<li><strong>Consider risk</strong> - Use higher discount rate for riskier investments</li>
<li><strong>Document assumptions</strong> - State discount rate rationale</li>
<li><strong>Sensitivity analysis</strong> - Test multiple discount rates</li>
<li><strong>Compare to alternatives</strong> - Use NPV to rank projects</li>
<li><strong>Account for inflation</strong> - Use real rates or inflate cash flows</li>
<li><strong>Validate results</strong> - Ensure NPV makes sense given inputs</li>
</ol>
<h2 id="comparison-with-related-functions">Comparison with Related Functions</h2>
<table>
<thead>
<tr>
<th>Function</th>
<th>Purpose</th>
<th>Key Difference</th>
</tr>
</thead>
<tbody>
<tr>
<td><strong>NPV</strong></td>
<td>Net present value</td>
<td>Assumes end-of-period cash flows</td>
</tr>
<tr>
<td><strong>PV</strong></td>
<td>Present value</td>
<td>Single/annuity payments only</td>
</tr>
<tr>
<td><strong>IRR</strong></td>
<td>Internal rate of return</td>
<td>Finds rate where NPV = 0</td>
</tr>
<tr>
<td><strong>MIRR</strong></td>
<td>Modified IRR</td>
<td>Uses separate financing/reinvestment rates</td>
</tr>
<tr>
<td><strong>FV</strong></td>
<td>Future value</td>
<td>Calculates future amount, not present</td>
</tr>
</tbody>
</table>
<h2 id="platform-notes">Platform Notes</h2>
<ul>
<li>Available in VBA (Excel, Access, Word, etc.)</li>
<li>Available in VB6</li>
<li><strong>Not available in <code>VBScript</code></strong></li>
<li>Equivalent to Excel's NPV function</li>
<li>Part of VBA financial functions library</li>
<li>Requires array parameter (not <code>ParamArray</code>)</li>
</ul>
<h2 id="limitations">Limitations</h2>
<ul>
<li>Assumes equally spaced time periods</li>
<li>Cash flows occur at end of each period</li>
<li>Does NOT include initial investment in values array</li>
<li>Cannot handle irregular time periods (use XNPV in Excel for that)</li>
<li>Assumes constant discount rate</li>
<li>Does not account for taxes directly</li>
<li>Requires at least one positive and one negative value</li>
</ul>
<h2 id="related-functions">Related Functions</h2>
<ul>
<li><strong>IRR</strong> - Finds internal rate of return (discount rate where NPV = 0)</li>
<li><strong>MIRR</strong> - Modified internal rate of return</li>
<li><strong>PV</strong> - Present value of annuity or lump sum</li>
<li><strong>FV</strong> - Future value of investment</li>
<li><strong>PMT</strong> - Payment amount for loan/investment</li>
<li><strong>Rate</strong> - Interest rate per period</li>
</ul>
<h2 id="vb6-parser-notes">VB6 Parser Notes</h2>
<p>NPV is parsed as a regular function call (<code>CallExpression</code>). This module exists primarily
for documentation purposes to provide comprehensive reference material for VB6 developers
working with financial analysis, investment evaluation, capital budgeting, and discounted
cash flow calculations.</p>
</article>
<div style="margin-top: 3rem; padding-top: 2rem; border-top: 1px solid var(--border-color);">
<p>
<a href="index.html">← Back to Financial</a> |
<a href="../index.html">View all functions</a>
</p>
</div>
</main>
<footer>
<div class="container">
<p>© 2024-2026 VB6Parse Contributors. Licensed under the MIT License.</p>
</div>
</footer>
</body>
</html>