Hora turno tabela

não é strtotimer e sim strtotime

Mil desculpas, era pra ter respondido o topico que eu mesmo criei.
Mas agora ja foi. Se alguem quiser responder da StrToTimer(6:00)?

Grato
juarezber@terra.com.br

Essa condição nunca vai ser verdadeira :



use

Fiz como Rjun, deu erro :
[Error] Unit1.pas(37): Incompatible types: ´String´ and ´TDateTime´

Desculpa. Nao tinha reparado que a hora era string. Converta a hora para Datetime usando strtotime tambem.

Em vez de declarar a variavel Hora como string, declare como TDateTime.



Na atribuição, faça o seguinte :

Consegui, la vai o codigo completo.

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

De nada...

Mais uma coisa. Não estou conseguindo, o if abaixo, as variaveis
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

Troque para: