Duda Con Fechas.

[kman]

Saludos Amigos!

Necesito realizar un cálculo en base una fecha inicial (edit1.text:= 20/06/05) que le sume 60 días y me de el resultado (Edit2.text:= ?), ésto es con el motivo de cálcular fechas de vencimiento de los claves de acceso de las usuarios a un proyecto que hago para así actualizarlas.

Alguna Idea??:)

[Sotrono]

Hola.


var fecha : TDate;
begin
fecha := Date;
fecha := fecha + 60;
end;


Bytes!!

[Casimiro Notevi]

Tienes varias formas, aquí tienes un ejemplo sencillo:

-suponemos que hay un edit donde escribimos una fecha "28/05/2006"
-un botón, este es su código onclick
-otro edit donde presentamos la fecha a la que le añadimos 60 días


procedure TForm1.Button1Click(Sender: TObject);
var DDate:TDate;
begin
// lo pasamos a una variable Date
DDate := StrToDate(Edit1.Text);
// Le sumamos 60 dias
DDate := DDate + 60;
// Lo presentamos en otro edit
Edit2.Text := FormatDateTime('dd/mm/yyyy',DDate);
end;

[Casimiro Notevi]

Sotrono, casi nos tropezamos :)

[kman]

hey!

Gracias por la ayuda!:D