안녕하십니까? 땅울음입니다.
혹시 델파이2.0에서 절상 함수가 있나 물어보려 합니다.
도움말을 찾아보아도 보이지않고 함수를 만들려 해도 정확이 작동 하지 않습니다.
제가 만든 함수는
Function MyCeil(fVal: Double): Integer;
var
iVal: Integer;
begin
iVal := Trunc(fVal);
if (fVal-iVal) > 0 then
iVal := iVal + 1;
Result := iVal;
end;
인데 예를 들어 fVal이 110.0 일때 fVal-iVal에서 0이아닌 1.4210e-14와같이
쓸모없는 값을 반환합니다.
해결방법이 없을까요?
끝까지 읽어주셔서 감사합니다.
|