以文本方式查看主题

-  金字塔客服中心 - 专业程序化交易软件提供商  (http://www.weistock.com/bbs/index.asp)
--  高级功能研发区  (http://www.weistock.com/bbs/list.asp?boardid=5)
----  请问vba中如何表达max(a,b)?  (http://www.weistock.com/bbs/dispbbs.asp?boardid=5&id=69507)
--  作者：dwjgwsm
--  发布时间：2014/9/2 11:26:00
--  请问vba中如何表达max(a,b)?
求二者之最大者/最小者/和等基本的运算函数怎么表达?
--  作者：ywbab
--  发布时间：2014/9/2 14:16:10
--  
dim p
if c>o then  p = c else p=o
--  作者：dwjgwsm
--  发布时间：2014/9/2 14:33:55
--  
谢谢,我不是问的这种表达方式.
--  作者：王锋
--  发布时间：2014/9/2 15:07:15
--  
function max(info)
arr=split(info,",")
max=clng(arr(0))
for i=1 to ubound(arr)
  if clng(arr(i))>clng(max) then
   max=clng(arr(i))
  end if
next
end function

function min(info)
arr=split(info,",")
min=clng(arr(0))
for i=1 to ubound(arr)
  if clng(arr(i))   min=clng(arr(i))
  end if
next
end function
\'调用方式
\'i=max("12,23,12,12,,32,43,54,43,56")
\'i=min("12,12,23,3,454,34,4,5,45,3,232,3,2,43,4")
--  作者：dwjgwsm
--  发布时间：2014/9/2 15:40:19
--  
谢谢!感情你们把那么多的vba函数都阉割了
--  作者：vincentwoo
--  发布时间：2014/9/22 10:57:51
--  

难怪我用min报错。。原来是这样。