F�rum DELPHI: Diferen�a entre datas com atualiza��o #570847

11/11/2016

Boa tarde Pessoal!

Preciso de uma ajudinha de voc�s.

Tenho uma pequena aplica��o com banco em access e quero fazer uma compara��o entre a data atual com a data de registro, ou seja, data de vencimento - data atual e o resultado exibir em algum edit OU dbedit , se poss�vel todas as fezes que entrar no sistema a data se atualiza de forma autom�tica.

Exemplo:

data atual: 11/11/2016
data de vencimento: 11/11/2017
Dias: 365

Caso o acesso seja feito no sistema no dia seguinte j� aparecer de forma atualizada para 364 dias .

Se algu�m me ajudar fico grato.

Mailson Janoca

Curtir t�pico

+ 0

Responder

Posts

11/11/2016

Huidemar Costa

Veja se a function DaysBetween atende sua necessidade,

a decla��o dela � a seguinte

function DaysBetween ( const ToDate, FromDate : TDateTime ) : Integer;

Adicione na uses-> DateUtils

Responder

Gostei + 0

11/11/2016

Mailson Janoca

E como eu fa�o para pegar a data atual e comparar com a data do vencimento?

Responder

Gostei + 0

11/11/2016

Huidemar Costa

A function Date retorna a data atual, a� voc� poderia fazer mais ou menos assim:

var
  Dias: integer;
  DataVencimento: TDate;
begin
   DataVencimento := StrToDate('01/01/2018'); // -> aqui voc� passa a data de vencimento que vc tem armazenado, eu passei fixo, mas vc ter� ela em algum lugar, uma TQuery, TTable, ou seja, DataVencimento := qry.fieldbyname('DataVencimento').asdate
   Dias :=   DaysBetween(Date, DataVencimento); 
  
end;

obs: n�o testei o c�digo mas a ideia � essa.

Responder

Gostei + 0

11/11/2016

Mailson Janoca

Vou testar !!! obrigado!!!!!

Responder

Gostei + 0