Excel(ESteel)自定义函数源代码.docVIP

Public Function DJ(钢筋直径 As Single, 最小搭接直径 As Single, 搭接类别 As String, 机械接头 As String, 锚固 As Single) Dim x As Integer, X1 As Integer, X2 As Integer, a As Integer If 钢筋直径 0 Then a = 1 Else a = 0 End If If 钢筋直径 最小搭接直径 Then If 机械接头 = 双面焊10D Then DJ = 钢筋直径 + 2 End If If 机械接头 = 单面焊5D Then DJ = 钢筋直径 / 2 + 2 End If If 机械接头 = 直螺纹 Then DJ = 0 End If End If If 钢筋直径 = 最小搭接直径 Then If 搭接类别 = 腰筋G Then DJ = 钢筋直径 * 1.5: x = 1 End If If 搭接类别 = 搭接100% Or 搭接类别 = 构造柱 Then DJ