contagem regressiva

Question

Ol�, algu�m sabe como posso fazer contagem regressiva de uma data, por exemplo tenho uma data gravada numa tabela, e preciso que quando faltam 5 dias para chegar a data, o sistema me avise, algu�m tem id�ia?

Creio que se vc fizer assim

if Data_do_Banco - Data_Hoje = 5 then
  ShowMessage(�Faltam 5 dias�)

Eu n�o testei

Facc · Answer

[quote:f229ca0c9a=�daia�]Ol�, algu�m sabe como posso fazer contagem regressiva de uma data, por exemplo tenho uma data gravada numa tabela, e preciso que quando faltam 5 dias para chegar a data, o sistema me avise, algu�m tem id�ia?[/quote:f229ca0c9a]Creio que se vc fizer assim [code:1:f229ca0c9a]if Data_do_Banco - Data_Hoje = 5 then  ShowMessage(�Faltam 5 dias�)[/code:1:f229ca0c9a]Eu n�o testei...

Rjun · Answer

Esse aviso precisa ser exibido quando voc� abre a aplica��o? Voc� pode pegar a data do banco de dados e subtrair da data atual.

if (DataBanco - Date) <= 5 then
  ShowMessage(�Aviso�);

Daia · Answer

if (dteData.Text - Work1.FieldByName(�dtProgManut�).AsString) <=5 then showmessage
(�Fazer manuten��o�);

Fiz assim, mas d� o seguinte erro:
Operator not applicable to this operand type
Algu�m??

Rjun · Answer

Voc� esta tentando subtrair strings. Fa�a com datas mesmo. Utilize Date para pegar a data atual. O campo dtProgManut deve ser do tipo date. Pelo jeito ele � desse tipo.

if (Date - Work1.FieldByName(�dtProgManut�).Value) <=5 then   
  ShowMessage(�Fazer manuten��o�);

Daia · Answer

Consegui, obrigada...Mais uma pergunta: se eu entrar no sistema amanh� ele vai me dizer que ao inv�s de cinco dias, faltam quatro??? Ou preciso mudar meu c�digo??...

Rjun · Answer

No seu c�digo voc� n�o exibe o tempo que falta. Mas basta voc� colocar no seu c�digo.

var
  prazo: integer;
begin
  prazo := Date - Work1.FieldByName(�dtProgManut�).Value

  if (prazo <= 5) then
    ShowMessage(�Falta(m) � + IntToStr(Prazo) + � dia(s) para manuten��o.�);

Daia · Answer

muito obrigada!!! Funcionou!!!!!...

F�rum contagem regressiva #296540