Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2005.06.14;
Скачать: [xml.tar.bz2];

Вниз

Срочно! Как сделать округление числа типа real до 2-го знака?   Найти похожие ветки 

 
Гость2   (2005-05-31 10:28) [0]

Как сделать округление числа типа real до 2-го знака после запятой (ес-но, средствами Делфи)?


 
Ega23 ©   (2005-05-31 10:35) [1]


function Round2(Value:Double):Double;
begin
Result:=Round(Value*100)/100;
end;


 
Гость2   (2005-05-31 10:51) [2]


> Ega23 ©   (31.05.05 10:35) [1]

Большое спасибо!!!


 
Плохиш ©   (2005-05-31 10:57) [3]

RoundTo

PS. Форум = Help?


 
Гость2   (2005-05-31 11:05) [4]


> PS. Форум = Help?

Форум = Good Help!


 
Alex Konshin ©   (2005-05-31 11:37) [5]

Следующий вопрос будет: "А почему неправильно округляет?"

Какое округление нужно? Хотя, что это я, если бы спрашивающий знал ответ на этот вопрос, то он бы и не задавал изначальный вопрос.
И чему вас только в школе учат?


 
Anatoly Podgoretsky ©   (2005-05-31 11:40) [6]

Alex Konshin ©   (31.05.05 11:37) [5]
Может быть и другой вопрос, а почему не округляет. округление до N знаков психологический обман. Округление означает до круглого, целого. Остальное от лукавого. Не забывать также что речь про числа с плавающей запятой.


 
Плохиш ©   (2005-05-31 11:48) [7]

>Alex Konshin ©   (31.05.05 11:37) [5]
>И чему вас только в школе учат?


Отдельные представители умудряются даже тому, чему учат, не научиться. К сожалению таких становиться всё больше :-(


 
anatolyk   (2005-05-31 21:33) [8]

Вычитал в книге:
function TForm1.RoundEx(x:double; Precision:Integer): Double;
begin
 Result := StrToFloat(FloatToStrF(X,ffFixed,14+Precision,Precision));
end;



Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2005.06.14;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.46 MB
Время: 0.039 c
3-1115832707
suharew
2005-05-11 21:31
2005.06.14
Как Вычесть время в SQL


3-1115760205
MadGhost
2005-05-11 01:23
2005.06.14
ZeosDBO и MySQL ужасы.....


4-1114352108
SPeller
2005-04-24 18:15
2005.06.14
Глобальный мышиный хук. Помогите ошибку найти


6-1111736034
Илья
2005-03-25 10:33
2005.06.14
Передача файлов по сети


4-1113852432
Jeson
2005-04-18 23:27
2005.06.14
помогите с форматированием винчестера в Delphi 7





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский