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.

Código Delphi [-]
var fecha : TDate;
begin
  fecha := Date;
  fecha := fecha + 60;
end;

Bytes!!

[Casimiro Noteví]

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 Noteví]

Sotrono, casi nos tropezamos

[kman]

hey!

Gracias por la ayuda!