COMO COMPARAR DOIS HORARIOS, E SABER O MENOR
13/02/2003
0
ESTOU EM FASE FINAL DE SYS E NÃO ESTOU CONSEGUINDO COMPARAR DOIS HORÁRIOS
SEGUE ABAIXO A ROTINA:
procedure TForm1.MskFechamentoExit(Sender: TObject);
Var
A: String;
B: String;
begin
A := MskFechamento.text;
B := MskDCS.text;
Begin
If B > A then
begin
Checkbox1.checked;
CheckBox1.Enabled := true;
end
else
Begin
If B < A then
Checkbox1.checked;
CheckBox1.Enabled := true;
end;
end;
SEGUE ABAIXO A ROTINA:
procedure TForm1.MskFechamentoExit(Sender: TObject);
Var
A: String;
B: String;
begin
A := MskFechamento.text;
B := MskDCS.text;
Begin
If B > A then
begin
Checkbox1.checked;
CheckBox1.Enabled := true;
end
else
Begin
If B < A then
Checkbox1.checked;
CheckBox1.Enabled := true;
end;
end;
Anonymous
Curtir tópico
+ 0
Responder
Posts
13/02/2003
Navoid
use a função assim
****
procedure TForm1.MskFechamentoExit(Sender: TObject);
Var
A, B: ttime;
begin
A := strtotime(MskFechamento.text) ;
B := strtotime(MskDCS.text);
Begin
If B > A then
begin
Checkbox1.checked;
CheckBox1.Enabled := true;
end
else
Begin
If B < A then
Checkbox1.checked;
CheckBox1.Enabled := true;
end;
end;
****
creio que resolve, mas tem um problema isso vai dar erro qdo for a virada do dia, pq 1 da manha é menor que 11 da noite, por exemplo.
ai vc teria que saber o dia tb.
até
****
procedure TForm1.MskFechamentoExit(Sender: TObject);
Var
A, B: ttime;
begin
A := strtotime(MskFechamento.text) ;
B := strtotime(MskDCS.text);
Begin
If B > A then
begin
Checkbox1.checked;
CheckBox1.Enabled := true;
end
else
Begin
If B < A then
Checkbox1.checked;
CheckBox1.Enabled := true;
end;
end;
****
creio que resolve, mas tem um problema isso vai dar erro qdo for a virada do dia, pq 1 da manha é menor que 11 da noite, por exemplo.
ai vc teria que saber o dia tb.
até
Responder
Clique aqui para fazer login e interagir na Comunidade :)
