Field - calculo de minutos x valor

Top  Previous  Next

 

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;