Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Почему функция неверно считает? [D6, Win2k]

Nik8. © (2005-01-14 08:15:00)
Мне потребовалось посчитать сколько будет стоить игра на заданый период.

Имею только стоимость игры за 1 час.

Написал функцию.

{Входные аргументы FTime - кол времени, FHSumm - Цена за 1 час}
function SubCalc(FTime :TDateTime; FHSumm :Double) :Double;
begin

//ReplaceDate(FTime, 0);
{Функция работает по такой схеме Высчитываем стоимость за 1 минуту(для этого делю стоимость за 1 час на 60) и умножаем на обшее количество минут}
Result :=((FHSumm / 60) * MinutesBetween(0, FTime) );
//ShowMessage(FloatToStr(Result));
end;

Вызываю например так.

....
var
FAllSumm :Double;
begin
{На примере нужно посчитать стоимость за 4 часа, стоимость 1 часа пускай будет 70 руб}
FAllSumm :=SubCalc(IncHour(0, 4), 70);
ShowMessage(FloatToStr(FAllSumm));
end;

В результате функция возврашает "278,833333333333" хотя должно быть "280.00" :(
Что делать? Кто виноват? Простой Калькулятор считает верно.

Безобразие! Борланд виноват однозначно ;)

Nik8. (2005-01-17 08:34:00) [1]
Понятно, значит я угадал виновного.

Большое спасибо за ответы!

Семен Сорокин (2005-01-14 10:36:00) [2]
MinutesBetween(EncodeDateTime(2003,7,16,4,54,0,0), EncodeDateTime(2003,7,16,4,55,0,0))
возвращает 0, а
MinutesBetween(EncodeDateTime(2003,7,16,15,54,0,0), EncodeDateTime(2003,7,16,15,55,0,0))
возвращает 1.
см. этот баг в Borland News:
http://qc.borland.com/wc/wc.exe/details?reportid=4430

Digitman (2005-01-14 09:39:00) [3]
у меня в Д7 твоя ф-ция возвращает ровно 280

Nik8. (2005-01-14 08:27:00) [4]
Удалите дубль.

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »