掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
小数点以下切捨てについて (ID:22404)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
ちと沼にはまりかけました。 function CutOffDecimalPlace(Value:Extended ; DP:Byte):Extended; var i:Integer; i64,p:Int64; begin p:=1; for i:=0 to DP-1 do p:=p*10; i64:= Trunc(Value * p); Result := i64 / p; end; procedure TForm1.Button1Click(Sender: TObject); var value:Extended; begin value:= StrToFloat(Edit1.Text); Edit2.Text:=FloatToStr(CutOffDecimalPlace(value,13)); end;
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.