Buscar

Adicionando dias a uma data

Código

Var nDias:String;
    vData:tDateTime;
Begin
   vData:=Date;
   if Inputquery('Adicionar dias','Quantos dias deseja adicionar?',nDias)
then begin
      Try
         vData:=vData+StrtoInt(nDias);
      Except
         ShowMessage('O valor de dias não parece um valor válido!!!');
         Exit;
      End;
      ShowMessage('A Proxima dada é : '+FormatDateTime('DD/MM/YYYY',vData);
   End;
End;
 

Publicidade

Vote na dica




Quantidade de votos: 0 votos
Aceitação: 0%

Detalhes da dica

Categoria: Data e hora
Adicionada dia: 30/07/03
Por: Mario C. Neto
Visualizada: 4096 vezes

Planeta Delphi - Tudo sobre programação Delphi Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009