Buscar

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)));

Publicidade

Vote na dica




Quantidade de votos: 1 voto
Aceitação: 20%


Detalhes da dica

Categoria: Data e hora
Adicionada dia: 03/08/10
Por: Deivdy Souza
Visualizada: 3166 vezes

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