access最大值减最小值的函数（Access求最大值函数）

access最大值减最小值的函数（Access求最大值函数）ElsemaxValue = value1代码如下:Function maxValue(value1 As Double value2 As Double value3 As Double value4 As Double) As DoubleIf value1 > value2 Then

自定义函数-求四个数值中最大值。源码示例分享！

一、问题描述:
在vba中 求几个变量中最大值怎么写，我是这样：

zuida=max(la1 la2 la3 la4)

出错子函数或过程未定义，应该怎么写？

二、解决方法：

代码如下:

Function maxValue(value1 As Double value2 As Double value3 As Double value4 As Double) As Double

If value1 > value2 Then

maxValue = value1

Else

maxValue = value2

End If

If maxValue < value3 Then

maxValue = value3

End If

If maxValue < value4 Then

maxValue = value4

End If

End Function

三、演 示：

四、示例下载：

Access自定义函数--求四个数值中最大值，Access求最大值函数【Access软件网】