Fórum Verificações com Datas #229961

04/05/2004

0

Olá Pessoal,

Estou achando estranho que faço uma verificação de datas que parece ser simples mas não retorna nada certo.

Estou tentando verificar o seguinte:

var
CampoAtual: String;

Begin

if (Date >= 23/04/2004) and (Date <= 12/05/2004) then
CicloAtual := ´Ciclo 07´

else if (Date >= 13/05/2004) and (Date <= 02/06/2004) then
CicloAtual := ´Ciclo 08´

else if (Date >= 03/06/2004) and (Date <= 23/06/2004) then
CicloAtual := ´Ciclo 09´

else if (Date >= 24/06/2004) and (Date <= 14/07/2004) then
CicloAtual := ´Ciclo 10´

else if (Date >= 15/07/2004) and (Date <= 04/08/2004) then
CicloAtual := ´Ciclo 11´

else if (Date >= 05/08/2004) and (Date <= 25/08/2004) then
CicloAtual := ´Ciclo 12´

else if (Date >= 26/08/2004) and (Date <= 15/09/2004) then
CicloAtual := ´Ciclo 13´

else if (Date >= 16/09/2004) and (Date <= 06/10/2004) then
CicloAtual := ´Ciclo 14´

else if (Date >= 07/10/2004) and (Date <= 27/10/2004) then
CicloAtual := ´Ciclo 15´

else if (Date >= 28/10/2004) and (Date <= 17/11/2004) then
CicloAtual := ´Ciclo 16´

else if (Date >= 18/11/2004) and (Date <= 08/12/2004) then
CicloAtual := ´Ciclo 17´

else if (Date >= 09/12/2004) and (Date <= 29/12/2004) then
CicloAtual := ´Ciclo 01´

end;


E ele não retorna nada válido. Como eu poderia afzer essa verificação ?

Obrigado


Koringa

Koringa

Responder

Posts

04/05/2004

Fer_nanda

Olá, coloquei da seguinte maneira e funcionou:
if (Date >= strtodate(´23/04/2004´)) and (Date <= strtodate(´12/05/2004´)) then
CicloAtual := ´Ciclo 07´

else if (date >= strtodate(´13/05/2004´)) and (date <= strtodate(´02/06/2004´)) then
CicloAtual := ´Ciclo 08´

else if (Date >= strtodate(´03/06/2004´)) and (Date <= strtodate(´23/06/2004´)) then
...

espero ter ajudado


Responder

Gostei + 0

05/05/2004

Koringa

Olá, coloquei da seguinte maneira e funcionou:
if (Date >= strtodate(´23/04/2004´)) and (Date <= strtodate(´12/05/2004´)) then
CicloAtual := ´Ciclo 07´

else if (date >= strtodate(´13/05/2004´)) and (date <= strtodate(´02/06/2004´)) then
CicloAtual := ´Ciclo 08´

else if (Date >= strtodate(´03/06/2004´)) and (Date <= strtodate(´23/06/2004´)) then
...
espero ter ajudado



Ae valeu vou testar depois este código. Muito Obrigado ....


Responder

Gostei + 0

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

Aceitar