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

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

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