HOra
Olá Amigos, peço a ajuda de vcs no seguinte problema eu quero colocar no meu sistema o seguinte o usuário me paga uma certa quantia e eu retorno para ele em Horas ou minutos sabendo q a hora custa R$2.00 esse sistema é para minha lan e estou quase terminando o sistema.
Obrigado pela colaboração
Obrigado pela colaboração
Izaias
Curtidas 0
Respostas
Rafael Heise
01/12/2003
Se você cobra 2 reais a hora, e o usuário lhe paga 3 reais, quanto tempo você deve deixá-lo usar?
se 2 reais é igual a 60 minutos, quantos minutos equivalem a 3 reais.
Vamos usar minutos pois ele pode não querer horas inteiras
Então, voltando lá pra 8º série, na regra de 3 simples, teremos
2 60
3 x
sendo que
x = (3*60)/2;
considerando que o valor da sua hora algum dia possa mudar, e o valor que o usuário lhe pagará também, então teremos uma função
function HorasPagas(aValor: extended): integer;
begin
Result := (aValor*60)/ValorHora;
end;
onde ValorHora é uma variável global sua que carrega do banco de dados ou de um arquivo .INI o valor da sua hora.
Assim, você terá a quantidade em minutos que o usuário poderá usar.
Para este exemplo, 1 hora e meia (1:30);
valeu!
se 2 reais é igual a 60 minutos, quantos minutos equivalem a 3 reais.
Vamos usar minutos pois ele pode não querer horas inteiras
Então, voltando lá pra 8º série, na regra de 3 simples, teremos
2 60
3 x
sendo que
x = (3*60)/2;
considerando que o valor da sua hora algum dia possa mudar, e o valor que o usuário lhe pagará também, então teremos uma função
function HorasPagas(aValor: extended): integer;
begin
Result := (aValor*60)/ValorHora;
end;
onde ValorHora é uma variável global sua que carrega do banco de dados ou de um arquivo .INI o valor da sua hora.
Assim, você terá a quantidade em minutos que o usuário poderá usar.
Para este exemplo, 1 hora e meia (1:30);
valeu!
GOSTEI 0
Rafael Heise
01/12/2003
Só alguns detalhes... a Função se for copiada e colada, não irá funcionar, pois integer não aceita o resultado de uma divisão. Vai dizer que são dados incompatíveis.
Então, deve ser declarado na Uses da form a unit Math e mudar o Result para receber Round((aValor*60)/ValorHora) ou também pode ser Trunc((aValor*60)/ValorHora) ao invés de (aValor*60)/ValorHora;
foi mal....
Então, deve ser declarado na Uses da form a unit Math e mudar o Result para receber Round((aValor*60)/ValorHora) ou também pode ser Trunc((aValor*60)/ValorHora) ao invés de (aValor*60)/ValorHora;
foi mal....
GOSTEI 0