|
-


Projects
<%
AgeSavingStart = 41
AgeSavingStop = 60
AgeAtUse = 65
YearlyWithdraw = 50000
SavingCurrent = 150000
IncomeYearlyCurrent = 100000
IncomeYearlyIncreasePercent = 0
IncomeSavingPercent = 10
ReturnDuringSavingPercent = 9
ReturnAfterSavingBeforeUsePercent = 6
ReturnAfterUsePercent = 4
InflationRatepercent = 3
showYearsAfterUse = 30
dim AmtAtSavingStop, AmtAtUseStart
AmtAtSavingStop = TotalAmtAtSavingStop(SavingCurrent,IncomeYearlyCurrent,IncomeYearlyIncreasePercent,IncomeSavingPercent,AgeSavingStop-AgeSavingStart,ReturnDuringSavingPercent-InflationRatepercent)
response.Write "" & amtTemp
next
TotalAmtAtSavingStop = amtTemp
end function
function CashFlowAfterUse(TotalAmtAtSavingStop,AgeAtUse,YearlyWithdraw,years,yearlyrate)
dim amtTemp,i
amtTemp = TotalAmtAtSavingStop - YearlyWithdraw
for i=1 to years
amtTemp = amtTemp*(1+yearlyrate/100)
response.Write " " & AgeAtUse+i & " --- $" & formatnumber(amtTemp,2)
amtTemp = amtTemp - YearlyWithdraw
next
CashFlowAfterUse = amtTemp
end function
function getAmountFuture(AmtCurrent,years,yearlyrate)
dim amtTemp,i
amtTemp = AmtCurrent
for i=1 to years
amtTemp = amtTemp*(1+yearlyrate/100)
next
getAmountFuture = amtTemp
end function
function getAmountCurrent(AmtFuture,years,yearlyrate)
dim amtTemp,i
amtTemp = AmtFuture
for i=1 to years
amtTemp = amtTemp/(1+yearlyrate/100)
next
getAmountCurrent = amtTemp
end function
%>
" & AmtAtSavingStop AmtAtUseStart = getAmountFuture(AmtAtSavingStop,AgeAtUse-AgeSavingStop,ReturnAfterSavingBeforeUsePercent-InflationRatepercent) response.Write "
" & AmtAtUseStart response.Write "
" & CashFlowAfterUse(AmtAtUseStart,AgeAtUse,YearlyWithdraw,showYearsAfterUse,ReturnAfterUsePercent-InflationRatepercent) function TotalAmtAtSavingStop(SavingInitial,YearlyIncome,YearlyIncomeIncreasePercent,SavingPercent,years,yearlyrate) dim amtTemp,i amtTemp = SavingInitial + YearlyIncome*SavingPercent/100 for i=1 to years amtTemp = amtTemp*(1+yearlyrate/100) amtTemp = amtTemp + YearlyIncome*(1+YearlyIncomeIncreasePercent/100)*SavingPercent/100 'response.Write "

