Calculo de tempo

Delphi

21/06/2004

Falae galera do forum, seguinte, estou fazendo um programa p/ um cyber café q controla o tempo de cada pessoa em cada micro. Entao, o eskema é o seguinte, a cada fração de 15 minutos é cobrado 1 real, ou seja, 1 hora = R$4,00, eu gostaria de saber qual é a função q uso p/ fazer esse cálculo, se for menor q 15 cobra 1 real, maior q 15 e igual ou menor q 30 cobra R$2, 00 e assim por diante....

[]s DB! :twisted:


Mascarade

Mascarade

Curtidas 0

Respostas

Thiago Vidal

Thiago Vidal

21/06/2004

Amigo, não sei se entendi direito, mas acredito que esta função resolve seu problema. Para efetuar o cálculo, basta guardar numa variável a hora de início e usar a hora atual para calcular o preço.

function CalculaPreco(HoraInicio, HoraAtual: TTime): Currency;
var
  h, m, s, ms: Word;
begin
  DecodeTime(HoraAtual - HoraInicio, h, m, s, ms);
  Result := (h * 4) + (m div 15) + 1;
end;



GOSTEI 0
Mascarade

Mascarade

21/06/2004

Pura matemática... :o Funcionou certim!! Valeu cara!

[]s DB! :twisted:


GOSTEI 0
POSTAR