Fórum Compara Datas #294460

04/09/2005

0

Delphi

Compara Datas, tenho que compara para ver se tem turno aberto para a data em questao

QAberCaixa.Open;

if QAberCaixa.Locate(´DATA_ABERTURA´,(´Data_Abertura.text´),[locaseinsensitive])
then Begin

soma:= QAberCaixa.FielDByname(´turno´).AsInteger;
soma:=soma+1;
turno.text:=inttostr(soma);

end
else turno.text:=´1´;


end;


Fmtrevisan

Fmtrevisan

Responder

Posts

04/09/2005

Wolverine

amigo, ñ tentdi, vc quer comprar data e oq vc postou aqui faz um busca no bd com a data informada pelo user
lembrando q tem farias fuction para manipular data e hora, uma dela é DateToStr()


Responder

Gostei + 0

04/09/2005

Fmtrevisan

EX. quero comparar a data do dia, se nao tiver abro um caixa com o turno 1, se tiver que no caso o resultado sera true, vejo qual turno que esta e acrescento mais um ,, ficando o segundo turno naquele dia.


Responder

Gostei + 0

04/09/2005

Fmtrevisan

EX. quero comparar a data do dia, se nao tiver abro um caixa com o turno 1, se tiver que no caso o resultado sera true, vejo qual turno que esta e acrescento mais um ,, ficando o segundo turno naquele dia.


ESSE FUNCIONOU -- A data só funciona para comparação se for String


QAberCaixa.Close;
Data_Abertura.Text:=DatetoStr(date);
QAberCaixa.Open;
dat :=data_Abertura.text;
if QAberCaixa.Locate(´DATA_ABERTURA´,(dat),[locaseinsensitive])
then Begin

soma:= QAberCaixa.FielDByname(´turno´).AsInteger;
soma:=soma+1;
turno.text:=inttostr(soma);

end
else turno.text:=´1´;


end;


Responder

Gostei + 0

04/09/2005

Fmtrevisan

AGORA PRECISO CHEGAR A ULTIMSA DATA DA TABELA


Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar