基于Excel VBA技术的货币时间价值计算模型设计

雷金东

（广西财经学院，南宁530003）

0 前言

随着社会和经济的不断发展，企业财务管理的内容越来越丰富和复杂，财务管理人员单单依靠传统的计算方法已经无法满足现代企业财务管理工作的需要。Excel软件是一款优秀的电子表格软件，它界面友好、简便易用、功能强大，通过它不仅可以进行数据的输入输出，还可以利用内置的函数、图表等功能对数据进行处理与分析，使财务管理工作变得轻松和高效，因此在财务管理中应用非常广泛。但是Excel只是一个通用的表格处理软件，在一些复杂和重复性的财务管理工作中，如果只是单纯使用Excel来进行财务数据计算和统计分析，效率较低，而且容易出错，因此，可以通过Excel并结合VBA（Visual Basic for Applications）技术来设计财务管理模型，实现重复性和复杂的财务数据处理过程，进而提高工作效率。下面以货币时间价值计算模型为例，介绍如何在Excel中使用VBA编程语言来设计财务管理模型。

1 Excel VBA介绍

VBA是一种面向对象的解释语言，通过它可以用来实现Excel中没有提供的功能，比如编写自定义函数、实现自动化功能等。基于Excel平台的VBA通过控制Excel中具有的对象库（特殊命令集）来实现其具有的功能。同时，由于VBA本身不是其他应用程序的一部分，可独立在其他应用程序外通过相应的对象来控制其他应用程序。

2 货币时间价值的相关知识

货币时间价值是指货币随着时间的推移而发生的增值，也称为资金时间价值。其来源于货币进入社会再生产过程后的价值增值。

在计算货币时间价值利息时有单利和复利两种方式，单利是指一定期间内只在原有本金上计算利息，本金所产生的利息不重复计息，复利是指一定期间内对本金及其产生的利息一并计算利息，即“利滚利”。

2.1 复利终值和现值

（1）复利终值（Future Value）是指当前一定量货币折合在若干期后所具有的价值，其计算公式为：FVn=PV（1+i）n，或FVn=PV·FVIFi，n。式中，FVn表示复利终值，PV表示现值，i表示利率，n表示计息期数，（1+i）n称为复利终值系数（Future Value Interest Factor），写成FVIFi，n或（F/P，i，n）。

（2）复利现值（Present Value）是指未来收到或支付的先进在当前的价值。其计算公式为：PV=FVn（1+i）-n，或PV=FVn·PVIFi，n。式中，PV表示复利现值，其他符号同前面，（1+i）-n称为复利现值系数（Present Value Interest Factor），写成PVIFi，n或（P/F，i，n）。

2.2 年金终值和现值

年金（Annuity）是指一定时期内每期等额的收付款项。

随着社会经济及信息技术的不断进步发展，社会主义的建设事业需要更多具有创新精神及创业能力的人才，因此国家将高等院校创新创业教育工作作为教育重点内容。但在高等院校实际贯彻落实国家的教育目标时积极性与热情度不高，且政府教育职能部门缺少相应的监督及管理，因此高等院校与中小微企业在创新创业教育层面的合作质量有待提升。例如我国的《职业教育法》中规定了企业教育在创新创业教育中的中心地位，但是在实际教学环节中中小微企业的教育中心地位并未明确，与此同时政府职能部门对于企业参与高校教育活动的奖励机制不完善，中小微企业与高等院校的教育合作缺少相关的政策制度进行约束。

（1）普通年金终值和现值

普通年金是指每期期末有等额收付款项的年金，又称后付年金。

（2）先付年金终值和现值

先付年金是指每期期初有等额收付款项的年金，又称即付年金。

①先付年金终值是指一定时期内每期期初等额收付款项的复利终值之和。计算公式为：XFVAn=A·FVIFAi，n·（1+i），或XFVAn=A·（FVIFAi，n+1-1）。式中，XFVAn表示先付年金终值，其他符号同前面。

②先付年金现值

先付年金现值是指一定时期内每期期初等额收付款项的复利现值之和。其计算公式为：XPVAn=A·PVIFAi，n·（1+i），或XPVAn=A·（PVIFAi，n-1+1）。式中，XPVAn表示先付年金现值，其他符号同前面。

（3）延期年金终值和现值

延期年金（Deferred Annuity）是指在一定时期以后才开始有的年金，又称递延年金。延期年金终值可直接按普通年金终值公式计算。延期年金现值的计算公式为：V0=A·PVIFAi，n·PVIFi，m，或V0=A·（PVIFAi，m+n-PVIFAi，m）。式中，V0表示延期年金现值，其他符号同前面。

2.3 货币时间价值函数

在Excel中，计算货币时间价值的主要函数有FV函数、PV函数。

（1）FV函数

FV函数不仅可以计算复利终值、普通年金终值和先付年金终值，还可以计算复利终值系数和年金终值系数。

语法：FV（rate，nper，pmt，[pv]，[type]）。其中，rate：各期利率；nper：年金的付款总期数；pmt：各期所应支付的金额，在整个年金期间保持不变。pmt一般包括本金和利息，但不包括其他费用或税款。如果省略pmt，则必须包括pv参数。pv：现值，或一系列未来付款的当前值的累积和。如果省略pv，则假定其值为0，并且必须包括pmt参数；type：数字0或1，用以指定各期的付款时间是在期初还是期末。如果省略type，则假定其值为0。当pmt=0或省略时，函数为已知现值计算终值；当pv=0或省略时，函数为已知年金计算终值。

（2）PV函数

PV函数不仅可以计算复利现值、普通年金现值和先付年金现值，还可以计算复利现值系数和年金现值系数。

语法：PV（rate，nper，pmt，[fv]，[type]）。PV函数参数的含义、注意事项与FV函数的相同。当pmt=0或省略时，已知终值计算现值；当fv=0或省略时，函数为已知年金计算现值。

3 模型的设计

3.1 模型的效果

在货币时间价值计算模型中，点击Excel工作表中的“开始计算”按钮后，启动模型的计算窗口，在窗体中输入金额（或年金）、期限、年利率、计息方式以及计息时间等信息，并选择要计算的值（复利终值或现值、普通年金终值或现值、先付年金终值或现值、普通延期年金终值或现值、先付延期年金终值或现值选项），点击“计算”按钮后，在窗体的“计算结果”框中显示最终的计算结果，同时在Excel的工作表中也同步显示结果以及各期的金额，如图1所示。

图1 模型运行的效果

3.2 设计基本信息表格

新建一个名为“货币时间价值计算模型.xlsx”的工作薄，然后在工作表中设计基本信息表格，信息包括金额（或年金）、期限、年利率、计息方式、延期年金递延期等，如图2所示。

图2 基本信息表

3.3 设计窗体

设计好表格后，启动Excel VBA，在模型中插入一个名为“时间价值”的用户窗体，然后在窗体中通过插入框架（Frame）控件把窗体划分为“已知数据区域”、“计算选择区域”、“计算结果区域”、“命令区域”四个区域。

在“已知数据区域”中插入6个标签（Label）控件，标题依次命名为“金额或年金（元）”、“期限（年）”、“年利率（%）”、“计息方式”、“延期年金递延期（年）”、“计息时间”；插入4个文字框（TextBox），分别对应“金额或年金（元）”、“期限（年）”、“年利率（%）”和“延期年金递延期（年）”标签控件；插入1个复合框（ComboBox）控件，对应“计息方式”标签控件；插入2个选项按钮（OptionButton）控件，标题分别命名为“期初”和“期末”，对应“计息时间”标签控件。

在“计算选择区域”中插入10个选项按钮控件和一个框架控件，10个选项按钮标题分别命名为“复利终值”、“复利现值”、“普通年金终值”、“普通年金现值”、“先付年金终值”、“先付年金现值”、“普通延期年金终值”、“普通延期年金现值”、“先付延期年金终值”和“先付延期年金现值”；框架控件的标题命名为“是否查看每期金额”，并在框架中插入2个选项按钮控件，标题分别命名为“是”和“否”。

在“命令区域”中插入3个命令按钮（CommandButton）控件，标题分别命名为“计算”、“清除表格”、“退出”。

在“计算结果区域”中插入1个文字框控件，用于显示计算的结果。

图3

3.4 编写程序代码

设计好窗体的框架后，开始编写程序代码。“计息方式”列表框初始化的代码如下：

“计算”按钮是模型的核心，其程序代码如下：

3.5 新建并指定宏

编写好程序代码后，插入一个名为“货币时间价值”的宏，指定其运行的按钮为工作表中的“开始计算”按钮，然后编写宏代码如下：

另外，为了在打开工作薄时自动运行模型，在VBA中插入一个模块，并添加如下的程序代码：

至此，模型设计完成，通过输入相关的数据和信息运行模型进行验证，如图4所示。

图4

4 结语

本文通过Excel VBA设计的货币时间价值计算模型，在计算各种终值或现值时可以避免反复调用FV和PV函数，使用过程中也不用反复地选择函数的参数，简化了计算过程。另外，模型不但可以显示最终的计算结果，还可以显示每期的金额，结果信息更丰富，因此在平常的财务管理工作中可以提高工作的效率和计算准确性。同样的，通过Excel VBA还可以设计长期债券分析模型、长期筹资决策模型等，进而合成为一个功能更强的财务管理系统。