OLEObject ExcelServer
integer li_ok
dec{2} ld_ret
long ll_arr[]
ExcelServer = CREATE OLEObject
li_ok = ExcelServer.ConnectToObject("excel.application")
if li_ok < 0 then
li_ok = ExcelServer.ConnectToNewObject("excel.application")
if li_ok < 0 then
messagebox("提示","您的電腦可能沒裝EXCEL,所以不能導出!")
return
end if
end if
ll_arr[1] = -70000
ll_arr[2]=12000
ll_arr[3]=15000
ExcelServer.Visible = false
ld_ret = ExcelServer.WorksheetFunction.Irr(ll_arr,-0.1)
ExcelServer.quit()
ExcelServer.DisConnectObject()
destroy ExcelServer
messagebox("内部投资收益率为:",string(ld_ret))
//其中的ll_arr数组用于存放Irr函数的参数,可自行修改设定
//ll_arr[1] = -70000
//ll_arr[2]=12000
//ll_arr[3]=15000
//-0.1
//这些都是EXCEL自带帮助中Irr函数所自带例子数据,可以和帮助对照即知