[EGKR]

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

[Страдалецъ]

Сама формула вычисления несложная. Нужно подключить модуль DateUtils и взять из него функцию MinutesBetween(НачДата,КонДата).
Вычесть из полученных минут льготные 15 минут. Получить часы разделив получившееся число на 60 и результат умножить на тариф часа. Тут есть один нюанс, количество минут не всегда ровно разделится на часы и что делать с остатком решайте сами.

А вот вычисляемое поле в Дельфи делается не так. Если доберетесь до этого абзаца - продолжим.

[EGKR]

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

[Страдалецъ]

Да, в DBText2.Caption вы получите количество минут между этими двумя датами. Обычное деление предполагает нецилочисленный результат в финале, даже если делить без остатка. Потому надо использовать

Код:

1	DBText2.Caption:=FloatToStr(Result/60)

Если же хотите считать только полные часы, без учета остатка минут, то можно сделать так:

Код:

1	DBText2.Caption:=IntToStr(Result div 60)

[Страдалецъ]

А что касается вычисляемого поля в Дельфи. То делается это так:
На форме у вас есть компонент Table. Для него запускаете Редактор полей и добавляете все поля, после чего добавляете в нем новое поле типа Currency (считать мы будем стоимость) и выставляем для него флаг Calculated и назовем это поле Price. У компонента Table есть событие OnCalcFields и в нем мы напишем такой вот код:

Код:

1 2 3 4

procedure TForm1.ADOTable1CalcFields(DataSet: TDataSet); begin  DataSet['Price'] := (MinutesBetween(DataSet['Time_stop'], DataSet['Time']) - 15) / 60 * 5; end;

Теперь если запустить приложение, вы получите автоматом рассчитанную стоимость стоянки с учетом льготных 15 минут и цене за час 5 руб.