經(jīng)濟參考報

買(mǎi)中國銀行20年后成為千萬(wàn)富翁的計算公式

2007-03-30 周佛郎來(lái)源:經(jīng)濟參考報網(wǎng)

    每月買(mǎi)入中國銀行1000元股票后，20年后成為千萬(wàn)富翁的計算公式：
    中國股市從股改后，股市的上漲空間已經(jīng)無(wú)限打開(kāi)。中國國民經(jīng)濟的高速發(fā)展，將使中國股市的每年平均增長(cháng)率到17%。由于中國銀行是中國國家海外銀行。在海外有大量的分支機構。中國明年將成為世界第二貿易大國，預計到2010年中國將是世界第一外貿強國。這些業(yè)務(wù)將主由中國銀行完成。中國銀行每年的平均增長(cháng)率將高于中國股市的年平均增長(cháng)率可達到22%以上。如果投資者買(mǎi)入中國銀行，并按零風(fēng)險的操作方法操作，把短期波動(dòng)變成利潤，將使投資者每年提高10%的收益率。其結果投資者每年將有32%的復利增長(cháng)。
    下面是我用PASCAL語(yǔ)言為大家編寫(xiě)的一小段程序來(lái)計算每月買(mǎi)1000元中國銀行股票20年的收益是多少。大家可以用這個(gè)程序算一下。
function Sum(const BaseMoney,IntreYear,Years:double ):double;
{
BaseMoney - 每月存的錢(qián) ，譬如 1000元
IntreYear - 1 + 年收益率 , 譬如 1 + 30% = 1.30
Years     - 投資年數（可以是小數），譬如 20年，或 5.5年
返回      - 屆時(shí)總資金
運行結果：
Sum(1000,1.32,20) = 11233571.57
Sum(1000,1.31,20) = 9910874.76
Sum(1000,1.30,20) = 8741609.53
}
function asqrt(const x:Extended; n:Integer):Extended;
begin
    result := exp(ln(x)*(1/n));
end;
var
S : double;
IntreMonth : double; { 折算成月利率 }
i : integer;
begin
S := 0.0;
IntreMonth := asqrt(IntreYear,12); { 年收益折算成月收益 }
for i := 0 to trunc(Years*12)-1 do
    begin
      S := (S + BaseMoney )*IntreMonth;
    end;
result := S;
end;