Field - calculo de minutos x valor

Como multiplicar minutos de um TDatetime

por determinado valor.

Exemplo      =   2:30:00

Cada minuto  = $ 2,00

2:30:00      =  150 minutos

150 x $ 2,00 = $ 300,00

---------------------

Tempo       = 2:30:00

ValorMinuto = 2,00

---------------------

 DecodeTime(Tempo, H, M, SC, MS);

 TotalMinutos := M + (H * 60);

 TotalMinutos := TotalMinutos + (SC / 60);

 TotalT := ValorMinuto * TotalMinutos;