Ir para conteúdo
Fórum Script Brasil
  • 0

(Resolvido) Calculo com Data em Dias


Nahim

Pergunta

Amigos;

Tenho uma aplicação em Delphi6 com base Oracle 10g

Meu problema e simples.

Preciso retornar uma data anterior a data do dia apos passar o numero de dias pra retroagir o mesmo.

Exemplo: Data 17/06/2008 (Sysdate)

Dias 90 D (Dias pra retroagir a Data)

Data 20/03/2008 (Data Calculada resutado)

Simples ne?

alguém já realizou ou tem alguma funcao ou algo do tipo.

Agradço deste já Muito Obrigado

Link para o comentário
Compartilhar em outros sites

3 respostass a esta questão

Posts Recomendados

  • 0

ou usando outro componente do RX

DateEdit1.Date := now-90;

ou ainda de outra maneira

procedure TForm1.Button1Click(Sender: TObject);
var
  Present: TDateTime;
  Year, Month, Day, Hour, Min, Sec, MSec: Word;
 begin
  Present:= Now;

  DecodeDate(Present, Year, Month, Day);
  Label1.Caption := 'Hoje é dia ' + IntToStr(Day) + ' do mes '
    + IntToStr(Month) + ' do Ano ' + IntToStr(Year);

  DecodeTime(Present, Hour, Min, Sec, MSec);
  Label2.Caption := 'A hora é ' + IntToStr(Hour) + ':'+IntToStr(Min);

  Present:= Now-90;
  DecodeDate(Present, Year, Month, Day);
  Label3.Caption := '90 dias atraz é dia ' + IntToStr(Day) + ' do mes '
    + IntToStr(Month) + ' do Ano ' + IntToStr(Year);

end;

abraço

Link para o comentário
Compartilhar em outros sites

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.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,3k
×
×
  • Criar Novo...