掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
四捨五入をするには (ID:33638)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
こんにちは、いつもお世話になっております。 環境はDelphi2006です。 現在、四捨五入をしたいと思っているのですが、 ヘルプで検索したところ、 Round()では特殊な四捨五入であるため、 ネット上で公開されている関数を使い開発を進めました。 ですが、四捨五入をする数値の整数部分が 11桁以上になると、マイナス値で答えが出てしまいます。 それ未満であれば正常に四捨五入されています。 もしお分かりの方がいらっしゃいましたら 宜しくお願い致します。 ------------------------------ procedure TForm1.Edit1Exit(Sender: TObject); var result : longint; value : extended; begin value := strtofloat(Edit1.Text); if value >= 0 then begin Result := Trunc(value + 0.5); end else begin Result := Trunc(value - 0.5); end; edit2.text := inttostr(Result); end;
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.