以下关系，能变成代码实现吗？

stvent

admin 发表于 2014-4-16 14:41
这个应该不会影响条件语句啊。这个红色的是你自己定的对吗？这个跟条件语句无关

是的，难道我要写成
if d<= 2ctan(360/2n), then B=90
else d<=2ctan(360/2n+360/n) and d >2ctan(360/2n) then B=90-360/n
.
.
.
.
.
.

koutx

有意思看如下行不行得通：
Function B(D As Double, N As Variant) As Variant
For X = 0 To 100
    If X = 0 Then
        If D <= 2 * Ctan(360 / (2 * N)) Then B = 90
    Else
        If D > 2 * Ctan(360 / (2 * N) + (X - 1) * (360 / N)) And D <= 2 * Ctan(360 / (2 * N) + X * (360 / N)) Then B = 90 - X * (360 / N)
        
    End If
    X = X + 1
Next
End Function

stvent

koutx 发表于 2014-4-16 15:09
有意思看如下行不行得通：
Function B(D As Double, N As Variant) As Variant
For X = 0 To 100

谢谢你，可行！~

todaynew

无需如此费劲，将D的上限、下限和β值放在一个数据表中，用Dlookup引用即可。

stvent

todaynew 发表于 2014-4-16 16:18
无需如此费劲，将D的上限、下限和β值放在一个数据表中，用Dlookup引用即可。

这样可以？？？