Algo Once pseudo-code: 退休年齡檢驗
2012/03/03 19:13
瀏覽411
迴響0
推薦0
引用0
CubicPower 計算頁面: 退休年齡檢驗
以下是使用Algo Once 來描述這個頁面是如何算出來的:
Algo Once pseudo-code is designed to describe the algorithm in local languages with VB style code.
by Chao-Yih Hsia (Mark Hsia) 2010/08/06
退休年齡檢驗 Retirement Age Check
| $initflag=0 | ||||||||
| if [目前年齡]==0 then | ||||||||
| [目前年齡]= 30 | ||||||||
| [退休年齡] = 60 | ||||||||
| [預計終老年齡] = 80 | ||||||||
| [通貨膨脹率] = 2 | ||||||||
| [投資報酬率] = 6 | ||||||||
| [生息資產] = 200000 | ||||||||
| [年儲蓄] = 100000 | ||||||||
| [目前年支出] = 400000 | ||||||||
| [退休生活調整率] = 75 | ||||||||
| $initflag=1 | ||||||||
| end if | ||||||||
| // N=退休年齡B - 目前年齡A | ||||||||
| $N = [退休年齡] - [目前年齡] | ||||||||
| // M=預計終老年齡C - 退休年齡B | ||||||||
| $M= [預計終老年齡] - [退休年齡] | ||||||||
| $P= [通貨膨脹率] / 100. | ||||||||
| $I = [投資報酬率] / 100. | ||||||||
| If ($N==0) OR ($M==0) OR ($I==0) OR ($P==0) Then | ||||||||
| {驗證結果}=`輸入資料錯誤!` | ||||||||
| Else | ||||||||
| // 退休後年支出 = 目前年支出 × 退休生活調整率 × 複利終值係數(P, N) | ||||||||
| [退休後年支出] = [目前年支出]*[退休生活調整率] / 100. *CF($P, $N) | ||||||||
| // 退休金資產 = 生息資產F × 複利終值係數(I, N) + 年儲蓄S × 年金終值係數 (I, N) | ||||||||
| [退休金資產] = [生息資產]*CF($I, $N) + [年儲蓄]*AF($I, $N) | ||||||||
| // 退休金負債 = 退休後年支出 × 年金現值係數(I-P, M) | ||||||||
| [退休金負債] = [退休後年支出]*AP($I- $P, $M) | ||||||||
| End If | ||||||||
| if $initflag==1 then | ||||||||
| //initialized, need to verify result | ||||||||
| if abs(([退休金資產] - 9060000) / 9060000 ) < 0.001 then | ||||||||
| {驗證結果}=`` | ||||||||
| else | ||||||||
| {驗證結果}=`起始驗證錯誤, 請勿繼續使用計算結果!` | ||||||||
| end if | ||||||||
| end if | ||||||||
// CopyRight (c) 2010 Chao-Yih Hsia
你可能會有興趣的文章：
限會員,要發表迴響,請先登入
