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

Gracias,
Bellota

[[seoane]]

Si me permites te hago yo la funcion:

Código Delphi [-]
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:

Código Delphi [-]
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...

[[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.