Verificações com Datas
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
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
Curtidas 0
Respostas
Fer_nanda
04/05/2004
Olá, coloquei da seguinte maneira e funcionou:
espero ter ajudado
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
GOSTEI 0
Koringa
04/05/2004
Olá, coloquei da seguinte maneira e funcionou:
espero ter ajudado
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 ...
Ae valeu vou testar depois este código. Muito Obrigado ....
GOSTEI 0