FV関数 : Access

Access FV関数は投資の将来価値を返します。

BackHomeへ BackAccess関数メニューへ



■ 構文
FV(rate, nper, pmt[, pv[, type]])

■ 引数
rate : (必須) 投資期間を通じて一定の利率を示す倍精度浮動小数点数型 の値を指定します。支払い回数を月にし、利率が年利の場合、12ヶ月で割った値を指定します。
nper : (必須) 投資期間全体での支払い回数の合計を指定します。
pmt : (必須) 毎回の支払額を示す倍精度浮動小数点数型 の値を指定します。(元金と利息が含まれます)
pv : (省略可)  現在の投資額または将来行われる一連の支払いを一括支払いした場合の合計金額を指定します。
type : (省略可) 各期の期末に支払う場合は 0 を、各期の期首に支払う場合は 1 を指定します。

■ 戻り値
倍精度浮動小数点数型 (Double) の値が返ります。

■ Access実行画面

投資の将来価値を計算します。
「利率」「貯金回数」「毎月の貯金額」「現在の貯金額」「貯金の時期」を入力し、「計算」ボタンをクリックすると計算結果をテキストボックスに表示します。
貯金の将来価値を計算するフォーム


■ Access VBA 実行コード

Option Compare Database
Private Sub コマンド22_Click()
    Dim f1 As Double
    '入力値のチェック
    If IsNull(Me!テキスト0) Then
        MsgBox "利率を入力してください。"
        Me!テキスト0.SetFocus
        Exit Sub
    End If
    If IsNull(Me!テキスト3) Then
        MsgBox "貯金回数を入力してください。"
        Me!テキスト3.SetFocus
        Exit Sub
    End If
    If IsNull(Me!テキスト5) Then
        MsgBox "毎月の貯金額を入力してください。"
        Me!テキスト5.SetFocus
        Exit Sub
    End If
    If IsNull(Me!テキスト7) Then
        MsgBox "現在の貯金額を入力してください。"
        Me!テキスト7.SetFocus
        Exit Sub
    End If
    '投資の将来価値を計算
    f1 = FV(Me!テキスト0 / 100, Me!テキスト3, Me!テキスト5 * -1, Me!テキスト7 * -1, フレーム11)
    '結果を表示
    Me!テキスト20 = f1
End Sub



BackHomeへ BackAccess関数メニューへ

Copyright(C) FeedSoft