Function GetWt(A As Boolean, L As Single, W As Single, T As Single, R As Single) If A Then GetWt = L * 3.1416 * (W ^ 2 - (W - 2 * T) ^ 2) / 4 * R * 10 ^ (-6) Else GetWt = L * W * T * R * 10 ^ (-6) End If End Function
Function GetWt(A As Boolean, L As Single, W As Single, T As Single, R As Single) If A Then GetWt = L * 3.1416 * (W ^ 2 - (W - 2 * T) ^ 2) / 4 * R * 10 ^ (-6) Else GetWt = L * W * T * R * 10 ^ (-6) End If End Function