IF TPagarDataVencimento.AsString < DateToStr(Now) then
begin
TPagar.Edit;
TPagarSituacao.Value:= 'Pendente de pagamento';
TPagar.Post;
end else begin
IF TPagarDataVencimento.AsString > DateToStr(Now) then
vencimento:= TPagarDataVencimento.value;
emissao:= TPagarDataEmissao.value;
dias:= vencimento - emissao;
ShowMessage('Você têm mais ' + FLoatTOStr(dias) + ' dias de prazo');
TPagar.Edit;
TPagarSituacao.Value:= 'Não vencida';
TPagar.Post;
end;
E também assim:
begin
vencimento:= TPagarDataVencimento.value;
emissao:= TPagarDataEmissao.value;
dias:= vencimento - emissao;
if dias > 0 then
begin
ShowMessage('Você têm mais ' + FLoatTOStr(dias) + ' dias de prazo');
TPagar.Edit;
TPagarSituacao.Value:= 'Não vencida';
TPagar.Post;
end else begin
TPagar.Edit;
TPagarSituacao.Value:= 'Vencida';
TPagar.Post;
end;
end;
Eu achei que estava funcionando mas fui surpreendido quanto testei com meses diferentes.
porque o código não está avaliando o mês.
Se eu coloco 30/11/2007 por exemplo ele avalia como tendo prazo de 8 dias.
Portanto, gostaria de ajuda com essa função se possível.
Pergunta
Guest --MXVinícius --
Prezados tentei fazer a função da seguinte forma:
E também assim:Eu achei que estava funcionando mas fui surpreendido quanto testei com meses diferentes.
porque o código não está avaliando o mês.
Se eu coloco 30/11/2007 por exemplo ele avalia como tendo prazo de 8 dias.
Portanto, gostaria de ajuda com essa função se possível.
Abraço,
Link para o comentário
Compartilhar em outros sites
8 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.