ユーザー定義関数の作成

１）
基準年の値をＰ0，ｔ年後の値をＰｔとした場合の年あたりの伸び率ｒは、
　　　　　　　　　　　　　　１／ｔ
　　　　　ｒ　＝　（Ｐｔ／Ｐ0）　　－　１　

で計算されます。
これを計算するユーザー定義関数のＶＢＡを教えてください。

２）
１からｎまでの逆数の和

　１＋1／２＋1／３＋・・・＋１／ｎ＝Σ１／ｉ

を計算するユーザー定義関数のＶＢＡを教えてください。

No.1 ベストアンサー 回答者： BLUEPIXY 回答日時： 2005/04/28 03:03

Public Function 伸び率ｒ(P0 As Double, Pt As Double, t As Integer) As Double

伸び率ｒ = (Pt / P0) ^ (1 / t) - 1
End Function

Public Function 逆数和(n As Integer) As Double
Dim i
Dim sum As Double
sum = 0#
For i = 1 To n
sum = sum + 1 / i
Next
逆数和 = sum
End Function

この回答へのお礼

ありがとうございました。
助かりました。

お礼日時：2005/04/29 11:52