Compara Datas
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;
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
Curtidas 0
Respostas
Wolverine
04/09/2005
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()
lembrando q tem farias fuction para manipular data e hora, uma dela é DateToStr()
GOSTEI 0
Fmtrevisan
04/09/2005
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.
GOSTEI 0
Fmtrevisan
04/09/2005
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;
GOSTEI 0
Fmtrevisan
04/09/2005
AGORA PRECISO CHEGAR A ULTIMSA DATA DA TABELA
GOSTEI 0