Fórum Hora turno tabela #278173
20/04/2005
0
me dizer onde esta errado?
Grato
juarezber@terra.com.br
procedure TForm1.Button1Click(Sender: TObject);
Var
Hora, Turno: String;
begin
Hora:= Table1.FieldByName(´Hora´).AsString;
if (hora >= StrToTimer(6:00) and (hora < StrToTimer(14:00)) then
Turno:= ´1´;
if (hora >= StrToTimer(14:00) and (hora < StrToTimer(22:00)) then
Turno:= ´2´;
if (hora >= StrToTimer(22:00) and (hora < StrToTimer(06:00)) then
Turno:= ´3´;
end;
Juarezber
Curtir tópico
+ 0Posts
20/04/2005
Edilcimar
Gostei + 0
20/04/2005
Juarezber
Mas agora ja foi. Se alguem quiser responder da StrToTimer(6:00)?
Grato
juarezber@terra.com.br
Gostei + 0
20/04/2005
Rjun
use
if (hora >= StrToTime(´22:00:00´) ) or (hora >= StrToTime(´00:00:00´) and hora <= StrToTime(´06:00:00´)) then Turno := ´3´;
Gostei + 0
20/04/2005
Juarezber
[Error] Unit1.pas(37): Incompatible types: ´String´ and ´TDateTime´
Gostei + 0
20/04/2005
Rjun
Em vez de declarar a variavel Hora como string, declare como TDateTime.
var Hora: TDateTime;
Na atribuição, faça o seguinte :
Hora := StrToTime(Table1.FieldByName(´Hora´).AsString);
Gostei + 0
20/04/2005
Juarezber
procedure TForm1.Button1Click(Sender: TObject);
Var
Hora: TDateTime;
Turno: Integer;
begin
Hora:= Table1.FieldByName(´Hora´).AsDateTime;
if (Hora >= StrToTime(´06:00:00´)) and (Hora < StrToTime(´14:00:00´)) then
Turno:= 1;
if (Hora >= StrToTime(´14:00:00´)) and (Hora < StrToTime(´22:00:00´)) then
Turno:= 2;
if (Hora >= StrToTime(´22:00:00´)) or ((Hora < StrToTime(´00:00:00´)) or
(Hora < StrToTime(´06:00:00´)))then
Turno:= 3;
Edit1.Text:= IntToStr(Turno);
end;
Abraços
juarezber@terra.com.br
Gostei + 0
20/04/2005
Rjun
Gostei + 0
08/05/2005
Juarezber
tem que ser com essas definições. Ja troquei StrToTime...etc. O erro esta abaixo. Se alguem tiver alguma ideia, por favor.
Var
Hora: TDateTime;
Turno: String;
Begin
if TableContador1.FieldByName(´Turno´).AsString = (´A´) and
((Hora >= StrToTime(´06:00:00´)) and (Hora < StrToTime(´14:20:00´)))
then
//Faça
end;
//[Error] Linha1.pas(530): Operator not applicable to
this operand type
Grato
juarezber@terra.com.br
Gostei + 0
08/05/2005
Marco Salles
Troque para:
Var Hora: TTime;//-->>Pode tb trocar aqui , não é necessário , mas é aconselhavel Turno: String; Begin if (TableContador1.FieldByName(´Turno´).AsString = ´A´) and ((Hora >= StrToTime(´06:00:00´)) and (Hora < StrToTime(´14:20:00´))) then //Faça end;
Gostei + 0