Periodo menos um ano

Delphi

04/03/2004

Preciso saber como faço período menos ano?
cdsPeriodo := cdsPeriodo.parambyname(´PERIODO´).value (menos um ano)(como faço isto?)(e tb o mês posterior?)


Ryonzeo

Ryonzeo

Curtidas 0

Respostas

Motta

Motta

04/03/2004

var d1,d2:tdatetime;
begin
d2:=now;
d1:=IncMonth(d1; -12)
end;


GOSTEI 0
Motta

Motta

04/03/2004

corrigindo ....


var d1,d2:tdatetime;
begin
d2:=now;
d1:=IncMonth(d2; -12)
end;


GOSTEI 0
POSTAR