Sumar dias a una fecha inicial en delphi

[bellota]

Hola,
En un mensaje de comunicación recibo un string con segundos, esos segundos debo transformarlos en yyyy/mm/dd hh:mm:ss (para el caso de mysql, es la base de datos que utilizo). Ya creé una función que hace eso, el problema es que ahora debo sumar los días que convertí a una fecha inicial(01/01/1980), pero no he encontrado ninguna función que lo haga.
Existirá tal función?... o debo hacerla yo?.

Espero que alguien me pueda ayudar :o

Gracias,
Bellota

[seoane]

Si me permites te hago yo la funcion:

function Suma(Fecha: TDateTime): TDateTime;
begin
Result:= Fecha + EncodeDate(1980,1,1);
end;


Por cierto si tienes el numero de dias en un string, puede que lo que necesites sea esto:

function StrToFecha(Str: string): TDateTime;
begin
Result:= EncodeDate(1980,1,1) + StrToInt(Str);
end;

[bellota]

Ok!!!!!...

Muchas gracias... voy a probar con estas funciones...

Gracias de nuevo...:p

[Lepe]

Para sumar días solo has de sumar un número entero a la fecha, Listo.

Por comodidad en la unidad DateUtils de Delphi tienes:

IncDay
IncMonth
IncHour
IncMinute

DaysBetween
MinutesBetween

y un largo etc.

Saludos.

[bellota]

Siiiii, seoane.... me funcionó una de las funciones que me diste...

MUCHAS GRACIAS.

Bellota.:D