Buscar por:

function para tirar dias, function para tirar meses e function para tirar anos

Código

function TFrelcadhor.tiradias(data:tdatetime;menosdias:tdatetime):tdatetime;

           //Function Criada por Deivdy Do Carmo De Souza

 begin

    result := strtodatetime(formatdatetime('dd/mm/yyyy',data - menosdias ));

 end;

function TFrelcadhor.tirameses(data:tdatetime;menosmeses:integer):tdatetime;

 var        //Function Criada por Deivdy Do Carmo De Souza

    Y, M ,D: integer;

    datacalc:string;

 begin

    Y := strtoint(formatdatetime('yyyy',data ));

    m := strtoint(formatdatetime('MM',data ))-menosmeses ;

    d := strtoint(formatdatetime('DD',data ));

    datacalc:=inttostr(d)+'/'+inttostr(m)+'/'+inttostr(y);

    result:=strtodatetime(datacalc);

 end;

function TFrelcadhor.tiranos(data:tdatetime;menosanos:integer):tdatetime;

 var        //Function Criada por Deivdy Do Carmo De Souza

    Y, M ,D: integer;

    datacalc:string;

 begin

    Y := strtoint(formatdatetime('yyyy',data ))-menosanos;

    m := strtoint(formatdatetime('MM',data ));

    d := strtoint(formatdatetime('DD',data ));

    datacalc:=inttostr(d)+'/'+inttostr(m)+'/'+inttostr(y);

    result:=strtodatetime(datacalc);

 end;

string:='25/05/2009';

 showmessage(datetimetostr(tiranos(tirameses(strtodatetime(dat),4),3)));