Criação de If, em campo data.

Delphi

08/04/2014

Olá galera, estou com o seguinte problema, preciso criar uma função que receba a data de emissão e outro campo que receba a data de vencimento, e esse campo de data de vencimento só aceita ser validado se for mais que 3 dias de diferença da data de emissão. Ficou claro? Abaixo tem um script que estou desenvolvendo.
Caso alguém possa me ajudar fico muito grato.

//a data do vencimento devera ser maior que 3 dias da data de emissão
if (DATA_VENCTO =< DATA_EMISSAO) then
begin
SHOWMESSAGE('DATA DE VENCIMENTO DEVE SER NO MINIMO TRÊS DIAS A MAIS QUE A DATA DA EMISSÃO!');
DBDTDATA_VENCTO.setfocus;
end;
Rafael Dantas

Rafael Dantas

Curtidas 0

Respostas

Thiago Irrazabal

Thiago Irrazabal

08/04/2014

Bom dia, não compreendi muito bem tua necessidade mas, não seria algo assim?

if (DATA_VENCTO - 3 >= DATA_EMISSAO) then
//SE PASSAR PELO TESTE SIGNIFICA QUE A DATA DE VENCIMENTO TEM MAIS OU IGUAIS A 3 DIAS DA DATA DE EMISSÂO



Att,
Thiago Irrazabal de Oliveira.
GOSTEI 0
Cauê Nishijima

Cauê Nishijima

08/04/2014

Primeiramente você tem que importar a classe DateUtils

em seguida no seu código faça da seguinte maneira:

if ( DATA_VENCTO < IncDay(DATA_EMISSAO, 3) ) then
begin
    ShowMessage(‘DATA DE VENCIMENTO DEVE SER NO MINIMO TRÊS DIAS A MAIS QUE A DATA DA EMISSÃO!');
    DBDTDATA_VENCTO.setfocus;
end;
GOSTEI 0
Rafael Dantas

Rafael Dantas

08/04/2014

Isso mesmo cara deu certo, obrigado!
Primeiramente você tem que importar a classe DateUtils

em seguida no seu código faça da seguinte maneira:

if ( DATA_VENCTO < IncDay(DATA_EMISSAO, 3) ) then
begin
    ShowMessage(‘DATA DE VENCIMENTO DEVE SER NO MINIMO TRÊS DIAS A MAIS QUE A DATA DA EMISSÃO!');
    DBDTDATA_VENCTO.setfocus;
end;
GOSTEI 0
POSTAR