Про рубли и копейки

[|kerish|]

Помогите расчитать формулу.
Дано 5 переменных.
Rubli as Integer
Kopeiki as Integer
Hours as Integer
Mins as Integer
Price as Integer
В переменной Price лежит цена в рублях за 1 час работы.
Как при изменении любой из 4 переменных (Rubli,Kopeiki,Hours,Mins) показать, например, что за 1 час 30 мин будет 15 рублей, 0 коп.
Я написал подобие, но у меня возникла проблема с копейками, надо учитывать и количество минут, если изменются копейки.
Может кто сталкивался?

[uhm]

Довольно путаная постановка задачи. Не понял, что происходит при изменении переменных Rubli и Kopeiki. Но, если я правильно понял все остальное, все очень просто. Если в переменной Price цена в рублях за час работы, то цена в рублях (может быть, нецелая) за Hours часов Mins минут работы будет

p=Price*(Hours+Mins/60)

Соответственно, целая часть p - рубли, дробная, округленная до сотых - копейки.

[skiperski]

Как я понял, нужно расчитать стоимоить за 1 час (S1) исходя из суммы (S) и времени (t).

S1 = S / t * 60,
где S1 и S - в копейках, а t - в минутах

==>

Код: Выделить всё

t = Hour * 60 + Mins
S = Rubli * 100 + Kopeiki

S1 = S / t * 60 'копеек

дели S1 на 100 - получишь в рублях.

[|kerish|]

to uhm
А как вычислить сумму в рублях и копейках если известно время (часы и минуты)?

[GSerg]

Чтобы не мучиться, вычисли один раз, сколько стоит 1 секунда.
Потом всё на это умножай.

[Ramzes]

Чтобы не мучиться, вычисли один раз, сколько стоит 1 секунда.
Потом всё на это умножай.

Класная логика, достойная настоящего программиста (без подсмыслов)

1Час = 60 мин исходя из этого считай.
1р.=100коп.


Допустим ты знаеш что за 1 мин работы ты получешь N коп


тогда за час работы ты получаешь N*60

если N = 100 значит 60 рублей... Сложно???

[uhm]

Я все-таки прошу уточнить, в чем задача. Зная сколько стоит 1 час работы, вычислить, сколько стоит произвольное количество времени работы (та задачка, которую решаю я), или что-то еще? Если да, то я, по-моему, все уже описал.

А еще, скажите уже мне кто-нибудь, есть ли в VB функция округления вниз?!

[GSerg]

int

[alibek]

fix

[|kerish|]

Всем спасибо.