以文本方式查看主题

-  金字塔客服中心 - 专业程序化交易软件提供商  (http://www.weistock.com/bbs/index.asp)
--  高级功能研发区  (http://www.weistock.com/bbs/list.asp?boardid=5)
----  VB函数如何返回两个值  (http://www.weistock.com/bbs/dispbbs.asp?boardid=5&id=78108)

--  作者:wjd
--  发布时间:2015/4/29 9:50:08
--  VB函数如何返回两个值

用VB编写函数,如何返回两个或两个以上的数值?

 

Function F1(Formula,P1,P2)

    Dim i

 

    i=.......

 

 

     F1=i


End Function

这样只能返回一个值,如何返回两个值?例如,我想输入一个值,返回该值的3倍和4倍值

Function F1(Formula,val)

    Dim i1 , i2

    i1 = val * 3

    i2 = val * 4

End Function

 

即返回值1=val * 3

   返回值2=val * 4

 


--  作者:王锋
--  发布时间:2015/4/29 11:23:34
--  

可以使用全局变量数据库来进行变量中转的,参考

http://www.weistock.com/bbs/dispbbs.asp?BoardID=5&ID=63186&skin=0


--  作者:wjd
--  发布时间:2015/4/29 15:39:54
--  

我在函数中使用了全局变量

Function F1(Formula,val)

    Call Document.SetExtData("变量1",1000)

....

End Function

 

在公式中如何取得该变量值?


--  作者:王锋
--  发布时间:2015/4/29 20:26:29
--  

请仔细翻阅下面4个函数的使用说明

 

EXTGBDATA( )
EXTGBDATASET( , )
EXTGBSTRING( )
EXTGBSTRINGSET( , )