jgaunt/ImportExcel
1
0
Fork 0
mirror of https://github.com/dfinke/ImportExcel.git synced 2025-12-15 07:43:23 +00:00
Code Issues Packages Projects Releases Wiki Activity

updated

Browse Source
This commit is contained in:
dfinke
2018-11-20 19:16:22 -05:00
parent 0ce75794e6
commit b3f4b188da
1 changed files with 41 additions and 14 deletions
Download Patch File Download Diff File Expand all files Collapse all files

55
Examples/MortgageCalculator/MortgageCalculator.ps1
View File

@@ -2,27 +2,54 @@
Fixed Rate Loan/Mortgage Calculator in Excel Fixed Rate Loan/Mortgage Calculator in Excel
#> #>
param(
$Amount = 400000,
$InterestRate = .065,
$Term = 30
)
function New-CellData {
param(
$Range,
$Value,
$Format
)
$setFormatParams = @{
WorkSheet = $ws
Range = $Range
NumberFormat = $Format
}
if ($Value -is [string] -and $Value.StartsWith('=')) {
$setFormatParams.Formula = $Value
}
else {
$setFormatParams.Value = $Value
}
Set-Format @setFormatParams
}
$f = "$PSScriptRoot\mortgage.xlsx" $f = "$PSScriptRoot\mortgage.xlsx"
rm $f -ErrorAction SilentlyContinue Remove-Item $f -ErrorAction SilentlyContinue
$pkg = "" | Export-Excel $f -Title 'Fixed Rate Loan Payments' -PassThru -AutoSize $pkg = "" | Export-Excel $f -Title 'Fixed Rate Loan Payments' -PassThru -AutoSize
$ws = $pkg.Workbook.Worksheets["Sheet1"] $ws = $pkg.Workbook.Worksheets["Sheet1"]
Set-Format -WorkSheet $ws -Range "A3" -Value "Amount" New-CellData A3 'Amount'
Set-Format -WorkSheet $ws -Range "B3" -Value 400000 -NumberFormat '$#,##0' New-CellData B3 $Amount '$#,##0'
Set-Format -WorkSheet $ws -Range "A4" -Value "Interest Rate" New-CellData A4 "Interest Rate"
Set-Format -WorkSheet $ws -Range "B4" -Value .065 -NumberFormat 'Percentage' New-CellData B4 $InterestRate 'Percentage'
Set-Format -WorkSheet $ws -Range "A5" -Value "Term (Years)" New-CellData A5 "Term (Years)"
Set-Format -WorkSheet $ws -Range "B5" -Value 30 New-CellData B5 $Term
Set-Format -WorkSheet $ws -Range "D3" -Value "Monthly Payment" New-CellData D3 "Monthly Payment"
Set-Format -WorkSheet $ws -Range "F3" -Formula "=-PMT(F4, B5*12, B3)" -NumberFormat '$#,##0.#0' New-CellData F3 "=-PMT(F4, B5*12, B3)" '$#,##0.#0'
Set-Format -WorkSheet $ws -Range "D4" -Value "Monthly Rate" New-CellData D4 "Monthly Rate"
Set-Format -WorkSheet $ws -Range "F4" -Formula "=((1+B4)^(1/12))-1" -NumberFormat 'Percentage' New-CellData F4 "=((1+B4)^(1/12))-1" 'Percentage'
Close-ExcelPackage $pkg -Show
Close-ExcelPackage $pkg -Show