Ola..pessoal...tenho que fazer uma rotina envolvendo contagem de horas....eu até fiz um if...mas é muito trabalhoso.....acho que teria uma maneira de fazer com codigo mais enxuto e simples..mas não to conseguindo montar o codigo.
fiz assim atraves de if...funcionar perfeito:
procedure TForm1.Button1Click(Sender: TObject);
var HrTotal : TdateTime;
begin
HrTotal:=STRTOTIME(Maskedit1.Text);
//
If Hrtotal <= StrToTime('12:00:00') then
Begin
Maskedit2.Text:=('09:00:00');
Exit;
end;
{se for hora superior a 12:00:00 ele paga 09:00:00
e assim por diante como esta abaixo até zerar a hora do maskedit2 }
If Hrtotal = strtotime('12:01:00') then Begin Maskedit2.Text:=('08:59:00'); end;
If Hrtotal = strtotime('12:02:00') then Begin Maskedit2.Text:=('08:58:00'); end;
If Hrtotal = strtotime('12:03:00') then Begin Maskedit2.Text:=('08:57:00'); end;
If Hrtotal = strtotime('12:04:00') then Begin Maskedit2.Text:=('08:58:00'); end;
end;
é como esta no codigo acima o raciocinio...mas note que fiz um if pra verificar as horas minutos e dizer o que vai receber no maskedit2 mas é muito codigo...acho que um contador resolveria...
O racioncinio é a cada minuto que o camarada chega atrazado ele é penalizado(descontado)
Pergunta
Eder
Ola..pessoal...tenho que fazer uma rotina envolvendo contagem de horas....eu até fiz um if...mas é muito trabalhoso.....acho que teria uma maneira de fazer com codigo mais enxuto e simples..mas não to conseguindo montar o codigo.
fiz assim atraves de if...funcionar perfeito:
é como esta no codigo acima o raciocinio...mas note que fiz um if pra verificar as horas minutos e dizer o que vai receber no maskedit2 mas é muito codigo...acho que um contador resolveria...
O racioncinio é a cada minuto que o camarada chega atrazado ele é penalizado(descontado)
O Problema é como fazer...alguma dica??
muito Grato
Editado por EderLink para o comentário
Compartilhar em outros sites
2 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.