Acrecentar dias em uma data ...
Como posso fazer para acrescentar 3 dias em uma data informada. Tendo em criterios o seguinte > caso a data informada seja 28/02/2003.
Existe alguma funcao. Como posso usar a funcao INC.
Existe alguma funcao. Como posso usar a funcao INC.
Walter Faria
Curtidas 0
Respostas
Nildo
09/09/2003
Simplesmente SOME.
StrToDate(´10/10/2003´) + 10
Retornará 20/10/2003
StrToDate(´10/10/2003´) + 10
Retornará 20/10/2003
GOSTEI 0
Mmtoor
09/09/2003
Prezado colega:
Com o objetivo de enriquecer ainda mais o exemplo dado por nosso amigo, informo, bem mastigado, a forma que utilizo:
No seu Form você insere três Tedits.
No Edit1 você insere a data que deseja;
No Edit2 você insere um número inteiro de dias;
No Edit3 você tem a data atual, ou seja, a soma da data no edit 1 mais os dias do edit2.
A rotina é a seguinte:
Var
saida: TDateTime;
chegada: real;
tempo: TDateTime;
begin
saida := StrToDate(edit1.Text);
chegada := StrToFloat(edit2.Text);
tempo := chegada + saida;
edit3.text := FormatDateTime(´dd/mm/yyyy´,tempo);
MMTOOR2003
Com o objetivo de enriquecer ainda mais o exemplo dado por nosso amigo, informo, bem mastigado, a forma que utilizo:
No seu Form você insere três Tedits.
No Edit1 você insere a data que deseja;
No Edit2 você insere um número inteiro de dias;
No Edit3 você tem a data atual, ou seja, a soma da data no edit 1 mais os dias do edit2.
A rotina é a seguinte:
Var
saida: TDateTime;
chegada: real;
tempo: TDateTime;
begin
saida := StrToDate(edit1.Text);
chegada := StrToFloat(edit2.Text);
tempo := chegada + saida;
edit3.text := FormatDateTime(´dd/mm/yyyy´,tempo);
MMTOOR2003
GOSTEI 0