请问vba中如何表达max(a,b)? - 高级功能研发区 - 金字塔客服中心 - 专业程序化交易软件提供商

金字塔客服中心 - 专业程序化交易软件提供商 → 金字塔软件 → 高级功能研发区 → 请问vba中如何表达max(a,b)?

欢迎使用金字塔普通技术服务论坛，您可以在相关区域发表技术支持贴。
我司技术服务人员将优先处理 VIP客服论坛 服务贴，普通区问题处理速度慢，请耐心等待。谢谢您对我们的支持与理解。

共有3587人关注过本帖树形打印复制链接主题：请问vba中如何表达max(a,b)?

dwjgwsm

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：黑侠帖子：864 积分：607 威望：0 精华：0 注册：2013/3/14 23:16:32

请问vba中如何表达max(a,b)? 发帖心情

Post By：2014/9/2 11:26:00 [只看该作者]

求二者之最大者/最小者/和等基本的运算函数怎么表达?

ywbab

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：新手上路帖子：22 积分：0 威望：0 精华：0 注册：2014/8/16 15:06:38

Post By：2014/9/2 14:16:10 [只看该作者]

dim p

if c>o then p = c else p=o

版主评定：

好评，获得1个金币奖励

(理由：奖励)

dwjgwsm

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：黑侠帖子：864 积分：607 威望：0 精华：0 注册：2013/3/14 23:16:32

Post By：2014/9/2 14:33:55 [只看该作者]

谢谢,我不是问的这种表达方式.

王锋

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：罗宾汉帖子：11808 积分：20695 威望：0 精华：10 注册：2009/8/18 8:15:13

Post By：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")