Como convertir hora a tipo numeric?

[Caminante]

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

[Casimiro Noteví]

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 )

[ecfisa]

Hola negrokau.

Empezado por negrokau

...
Como multiplicar un dato tipo TIME con un NUMERIC?

Respondiendo a esa consulta, la ayuda de Delphi dice:

Delphi stores date and time values in the TDateTime type. The integral part of a TDateTime value is the number of days that have passed since 12/30/1899. The fractional part of a TDateTime value is fraction of a 24 hour day that has elapsed.

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