Форум: "Потрепаться";
Текущий архив: 2002.04.18;
Скачать: [xml.tar.bz2];
ВнизПросчёт ВРЕМЕНИ затраченного на интернет !!! Найти похожие ветки
← →
KvORubin (2002-03-07 15:40) [0]Может у кого есть уже готовый исходник просчёта времени (затраченного на интернет) ???
Я никак немогу разобраться с денежными единицами, вот допустим: с 20:00 до 21:00 цена
за 1час $2 как мне пощитать какой будет расход допустим за 45 минут (програмно).
← →
KvORubin (2002-03-07 22:33) [1]Спосибо за Ваши многочисленные ответы, даже не знаю какой лучше !!
Вот, это и всё, что надо было:
procedure TForm1.Timer1Timer(Sender: TObject);
var
Present: TDateTime;
Year,Month,Day,Hou,Min,Sec,MSec: Word;
begin
Present:=now; DecodeTime(Present, Hou, Min, Sec, MSec);
xHou :=IntToStr(Hou);
xMin :=IntToStr(Min);
xSec :=IntToStr(Sec);
end;
← →
Delphimun (2002-03-08 08:02) [2]А если ты уже вышел из explorer-а и забыл отключить свой таймер...
Как посмотреть в данный момент в инете ты или нет(помню что гдето в faq было) не знаю, могу только посовеовать посмотри если окно explorera закрыто, таймер вырубается. А вообще посмотри в faq там точно есть.
← →
KvORubin (2002-03-08 08:42) [3]Не Не, а если я не пользуюсь explorer-ом то получается таймер не включится.. допустим я вышел посмотреть почту или скачать программу....
На этот случай у меня уже есть проверяльщик подключенности к интернету.
Сейчас мне необходима формула по которой будет производится
подсчёт следующих данных:
1. Имеется стоимость часа,
2. Имеется ячейка в которую попадёт расход,
3. Имеется время продолжительности подключения.
Немогу сообразить, как это правильно посчитать !!!???
← →
evgeg (2002-03-08 11:14) [4]В чем проблема, время на стоимость не можешь умножить?
← →
KvORubin (2002-03-08 11:58) [5]Я то могу, на калькуляторе, а на дельфе немогу !!!
Я немогу всё это перемножить не используя REAL , а он как зар мне нафиг не нужен, он остатки тоже считает, мне нужны конкретные
циферки. Вот.
Если не затруднит, напишите примерчик ПЛЗ!
← →
Wooffy (2002-03-08 20:57) [6]Из какого класса средней школы Вас поперли, разрешите полубопытствовать?
← →
Dimk (2002-03-09 01:30) [7]1 час - 60 минут.
1 час - 2$
1 $/минуту = 2/60
Теперь если скажем надо вычислить ск баксов за 45 минут
получаем: 45(минут) * 2($) / 60 (минут)
потом можешь округлить до баксов или до центов чтобы избавиться от ненавистного Тебе Real-а.
1 бакс = 100 центов так ?
Trunc - округляет по мат законам.
function Int(X: Extended): Extended; - округляет с недостатком
- это для клиентов функция сделана.
function Ceil(const X: Extended):Integer; - округляет с избытком - а эта специально для провайдеров сделана :0)
← →
KvORubin (2002-03-09 09:05) [8]> Wooffy
Заканчиваю институт, на 3 курсе только...
> Dimk
Спасибо спасибо, я примерно так-же думал, только не знал про "Trunc".
← →
Anatoly Podgoretsky (2002-03-09 09:15) [9]Математику проходят только на четвертом курсе.
← →
KvORubin (2002-03-09 09:39) [10]
> Anatoly Podgoretsky ©
У меня ещё всё в переди :)
Ну нифига, Trunc округляет 1.5 в 1,, так-же не пойдёт,,,
нужно округлить:
1,53333333333 - както избавиться от всех троек !!!
(и возможно ли отделить единицу и пятёрку в разные переменные???)
← →
Anatoly Podgoretsky (2002-03-09 10:38) [11]Trunc вообще ничего не округляет, это сокращение от Truncate, округление по английски Round, еще есть Int, Ceil, Floor.
Округление производится до целого.
Можно, Trunc и Frac
← →
KvORubin (2002-03-09 10:57) [12]Не а пример всего выше сказанного можно написать ???
>Anatoly Podgoretsky
Вы всё равно болтаетесь по всему форуму, напишите примерчик,
который посчитает это дело.. , а там и продолжим беседу.
← →
Anatoly Podgoretsky (2002-03-09 11:00) [13]Я не болтаюсь.
А хелп посмотреть? На все фунции есть четкое описание и примеры.
Меня не поймут если я буду делать копию хелпа в форум
Вот посмотри его и приходи с дополнительными вопросами, если появятся.
← →
drpass (2002-03-09 11:01) [14]У тебя что, серьезно такие цены на Интернет? У меня в бизнес-время в пять раз меньше
← →
Вадим (2002-03-09 17:15) [15]3-й курс! Зашибись!
← →
KvORubin (2002-03-09 23:15) [16]> Anatoly Podgoretsky ©
Никто ничего такого не скажет, Вы просто напишите пример счётчика времени, чтоб он считал минутки.. !!??
Выж это умеете, помогите !!!
> drpass ©
Нет, мой интернет днём стоит 1$.с чем-то ,, а ночьной чкть меньше 1$ ,, вот. :(
> Вадим ©
А Вы на каком ???
← →
Wooffy (2002-03-10 15:28) [17]Раз у нас так плохо с real, предлагаю обойтись строками.
var e: real;
s: string;
////..........skipped
e := 3.53912345;
s := Format ("%f",[e]);
Showmessage(s);
////..........skipped
и в строке S у нас будет, как и положено "3.54"
8Ж
Страницы: 1 вся ветка
Форум: "Потрепаться";
Текущий архив: 2002.04.18;
Скачать: [xml.tar.bz2];
Память: 0.48 MB
Время: 0.008 c