求指点一个自定义函数

greenboater

工作簿1.rar (12.59 KB, 下载次数: 6)

2014-1-6 09:14 上传

点击文件名下载附件

A2是用IF函数算的结果，是正确的
C2是用自定义函数算的结果，想知道哪里有问题？？
这个M1的数值类型不同，算出来的10＾M1结果就不同，这是为什么啊？？？
是不是因为这个原因啊？？？

1. Public Function OdorEnviromental(M1 As String, M2 As String, M3 As String)
   
2.     '=============================================================================================
   
3.     '必须满足M1＞M2，M2＞M3
   
4.     If Not M1 > M2 And M2 > M3 Then
   
5.         OdorEnviromental = "原始数据有误"
   
6.     Else
   
7.     '=============================================================================================
   
8.     '若M2＞0.58＞M3，用M2和M3参与计算
   
9.         If M2 > 0.58 And M3 < 0.58 Then
   
10.             OdorEnviromental = 10 * (10 ^ ((M2 - 0.58) / (M2 - M3) * Log(1000 / 100)))
    
11.         Else
    
12.     '=============================================================================================
    
13.     '若M1＞0.58＞M2，用M1和M2参与计算
    
14.             If M2 < 0.58 And M1 > 0.58 Then
    
15.                 OdorEnviromental = 10 * (10 ^ ((M1 - 0.58) / (M1 - M2) * Log(100 / 10)))
    
16.     '=============================================================================================
    
17.     '若0.58＞M1，结果用10表示
    
18.             Else
    
19.                 If M1 < 0.58 Then
    
20.                     OdorEnviromental = 10
    
21.                 Else
    
22.     '=============================================================================================
    
23.     '其他情况报错
    
24.                     OdorEnviromental = "Error"
    
25.                 End If
    
26.             End If
    
27.         End If
    
28.     End If
    
29. End Function

复制代码

蓝桥玄霜

把参数的数据类型改掉，不要用String