ฟังค์ชันคำนวณหาเหล็กเสริม

ฟังค์ชันคำนวณหาเหล็กเสริม ในพื้น

Function getAreaSpacing(dia, spacing)
      As1 = Application.Pi() * (dia / 20) ^ 2
      Num = 100 / spacing
      getAreaSpacing = Num * As1
End Function

ฟังค์ััชัน Beta1 สำหรับคอนกรีตเสริมเหล็ก วิธีกำลัง

ไว้ใช้ใน Excel เวลาคำนวณออกแบบคานคอนกรีตเสริมเหล็ก โดยวิธีกำลัง

Function Beta1(fcu)
    If fcu <= 280 Then
        Value = 0.85
    ElseIf fcu >= 560 Then
        Value = 0.65
    Else
        Value = 0.85 - (fcu - 280) / 70 * 0.05
    End If
    Beta1 = Value
End Function