Просчёт ВРЕМЕНИ затраченного на интернет !!!

← →
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
Вы всё равно болтаетесь по всему форуму, напишите примерчик,
который посчитает это дело.. , а там и продолжим беседу.

Я не болтаюсь.
А хелп посмотреть? На все фунции есть четкое описание и примеры.
Меня не поймут если я буду делать копию хелпа в форум
Вот посмотри его и приходи с дополнительными вопросами, если появятся.

У тебя что, серьезно такие цены на Интернет? У меня в бизнес-время в пять раз меньше

3-й курс! Зашибись!

> 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Ж

Просчёт ВРЕМЕНИ затраченного на интернет !!! Найти похожие ветки