[negrokau]

Hola amigos, tengo un inconveniente en un calculo, ya busque mucho en el foro pero no estoy encontrando una solucion, o por lo menos no lo estoy entendiendo lo que ya encontre...

Mi inconveniente es que necesito calcular la diferencia entre hora de entrada y hora de salida de un estacionamiento, el resultado de horas utilizadas tengo que calcularlo por un TARIFA establecido...

Este es mi codigo:

Boton1
Establece la hora de entrada

Código Delphi [-]
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
DATAMODULE1.Q_PRUEBA.Open;
DATAMODULE1.Q_PRUEBA.Append;
DATAMODULE1.Q_PRUEBA.FieldValues['COD_PRUEBA']:=1;
DATAMODULE1.Q_PRUEBA.FieldValues['HORA1']:=TIME;//hora de entrada
end;

Boton2
Establece
-La hora de Salida
-Calcula la diferencia de (hora de salida - hora de entrada)
-Multiplica la cantidad de horas utilizadas con la TARIFA establecida

Código Delphi [-]
procedure TForm1.BitBtn2Click(Sender: TObject);
begin
DATAMODULE1.Q_PRUEBA.FieldValues['HORA2']:=TIME;//hora de salida
DATAMODULE1.Q_PRUEBA.FieldValues['T_HORA']:=DATAMODULE1.Q_PRUEBA.FieldValues['HORA2']-DATAMODULE1.Q_PRUEBA.FieldValues['HORA1'];//total de horas
DATAMODULE1.Q_PRUEBA.FieldValues['MONTO']:=DATAMODULE1.Q_PRUEBA.FieldValues['T_HORA']*DATAMODULE1.Q_PRUEBA.FieldValues['TARIFA'];//total de horas * TARIFA
end;

Los Campos HORA1, HORA2 Y T_HORA son tipo TIME
Los campos MONTO y TARIFA son tipo NUMERIC

Como multiplicar un dato tipo TIME con un NUMERIC?

Ojala lo hayan entendido, le agradezco desde ya... que pasen un buen dia... gracias...