Como convertir hora a tipo numeric?
 

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

Podrías calcular la diferencia de horas con la función HoursBetween que devuelve un entero y así multiplicarlo con el monto por hora.
Aunque cuando resto fechas de la forma que lo haces siempre me devuelve un entero.

Saludos

Deberías guardar la hora de entrada y la de salida en tipo "datetime", ahora llamado "timestamp". Aunque sólamente presentes la hora al usuario.

Así que:

Código Delphi [-]
 importe = preciohora * HoursBetween( fechahorasalida, fechahoraentrada )

Hola negrokau.
Respondiendo a esa consulta, la ayuda de Delphi dice:
Atendiendo a lo anterior, podemos hacer por ejemplo:

Código Delphi [-]
function HourValue(const Entrada, Salida: TDateTime; const Valor: Double): Double;
begin
  Result :=  Frac(Salida - Entrada) * 24 * Valor;
end;

Y luego usar la función de este modo:

Código Delphi [-]
  with DATAMODULE1.Q_PRUEBA do
    FieldValues['MONTO'] := HourValue(FieldValues['HORA1'], FieldValues['HORA2'], PRUEBA.FieldValues['TARIFA']);

Saludos :)