Como somar data
Pessoal como faço para soma data ex:
tenh hoje no banco de dados gravado.. 12/05/2003 ou seja esta data ja esta ultrapassada no meu cadastro e quero atualiza-la para mais 180 dias como ficaria isso em codigo...
Aguardo..
Fabiano
tenh hoje no banco de dados gravado.. 12/05/2003 ou seja esta data ja esta ultrapassada no meu cadastro e quero atualiza-la para mais 180 dias como ficaria isso em codigo...
Aguardo..
Fabiano
Fabianosouza
Curtidas 0
Respostas
Xanatos
13/05/2003
voce só precisa adicionar 180 ou o valor que quiser a uma variavel do tipo TDateTime...
Ex: usando dois edits...
var D: Tdatetime;
begin
d:= StrtoDate(Edit2.Text);
d:= d+30;
Edit3.Text:= DateTostr(d); // 30 dias a mais...
end;
Ex: usando dois edits...
var D: Tdatetime;
begin
d:= StrtoDate(Edit2.Text);
d:= d+30;
Edit3.Text:= DateTostr(d); // 30 dias a mais...
end;
GOSTEI 0
Th_moreira
13/05/2003
Você pode utilizar a funçao incday
IncDay(<data>, <numero de dias>)
Análogamente, existem as funções incMinute, incHour, incMonth...
Att.
Thiago.
IncDay(<data>, <numero de dias>)
Análogamente, existem as funções incMinute, incHour, incMonth...
Att.
Thiago.
GOSTEI 0
Aroldo Zanela
13/05/2003
Pessoal como faço para soma data ex:
tenh hoje no banco de dados gravado.. 12/05/2003 ou seja esta data ja esta ultrapassada no meu cadastro e quero atualiza-la para mais 180 dias como ficaria isso em codigo...
Aguardo..
Fabiano
Fabiano,
Var dData: TDate;
begin
dData := tbTabVENCIMENTO.Value + 180;
GOSTEI 0