[Help Me] 델피언이 되고 싶은 청년이 올립니다...
----------------------------------------------------------------------
[질문]
연산된 결과 값이 틀리게 산출되는데 어디가 잘 못인지 모르겠습니다.
어떻게 해야하는 지..
어디가 잘못인지 모르겠습니다. (델파이 데이터형은 익숙치가 못해서..)

보시고 조언 부탁드립니다.


주요 소스 부분입니다...
procedure TForm1.butAmountClick(Sender: TObject);
var
EX,UsedDay,Used,AddPer : Integer; // 단가,사용일수,사용량, 가산율
Amount : LongInt;  // 사용금액

begin

EX := StrToInt(dbeEX.Text); //단가

UsedDay := StrToInt(dbeUsed_day.Text); //사용일수

If dbeAdd_per.Text <> '0' Then   // 가산율 산출 입력 값이 0이면 0으로 처리.
   AddPer := StrToInt(dbeAdd_per.Text) div 100
else
   AddPer := 0;

Used := StrToInt(dbeUsed.Text);
//사용금액 = (단가 * 사용량 * 사용일수) + (단가 * 사용량 * 사용일수 * 가산율)
Amount := ( EX * Used * UsedDay) + ( EX * Used * UsedDay * AddPer);
dbeAmount.Text := IntToStr(Amount);
Table1.Refresh; //테이블을 최신값으로 초기화
end;


입력한 값
------------------------------------
사용량 : 120      : 변수명 Used 
단가: 2000        :        EX
사용일수 : 51     :        Used_day
가산율 : 5(%)     :        Add_per
------------------------------------
사용금액: 12,852,000   << 산출되어야할 수치...



[p.s] 가정에 언제나 행복이 가득하시길 기원합니다.

      hk4801@chollian.net 올림
      임상택