uses
  Math;

function Calc(x, y, w, z: double): double;
var
  Area, Theta, Nc: Double;
begin
  Area := x * y;
  if (x / y) > 1= then
    Theta := x / y
  else
    Theta := y / x;
  Nc := (pi * Power((w-(1+Theta)*sqrt(Area/Theta)), 2))/4*Area;
  Result := z / nc * 1.03;
end;

민쭈니 님이 쓰신 글 :
: 안녕하세요.. 델 왕초보입니다
: 엑셀에서 사용되어있던 계산식인데 델파이로 구현했어 자동으로 계산하여
: 입력할려구 합니다
: 독학을 하다 보니 아직 미천하여 여러분들께 도움을 요청합니다..
: 다들 바쁘시겠지만 자세히 조금만 도와주세요..
: X , Y , W , Z 로 각 4개의 editbox로 값을 입력받지만
: 아래의 공식으로 계산한뒤 그결과값을 DB에 추가로 Total 이라는 필드로 저장합니다.
: 결국은 DB그리드에 X , Y , W , Z ,TOTAL 5개필드의 값이 저장되도록 구현하는 것입니다.
: 아직 초보라 함수에대해서 잘 몰라 경험이 많으신 분들께 도움을 요청을 드립니다.
: 작성 방법 좀 가르쳐 주십시요.필드는 다 만들어져 있습니다.
: DB는 Quary를 사용하여 ORACLE로 보내집니다.
: Total값을 구하는 공식은 아래와 같습니다.
: AREA= X * Y   
: THETA = IF((X/Y)>=1, X/Y, Y/X)  
: NC=(PI()*{W-(1+Theta)*SQRT(Area/Theta) }^2)/4*Area
: TOTAL = Z/NC*1.03
:
: 감사합니다..