Foros Club Delphi - Duda Con Fechas.

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)

- - Duda Con Fechas. (https://www.clubdelphi.com/foros/showthread.php?t=32170)

kman	28-05-2006 20:13:31

Duda Con Fechas.

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

28-05-2006 20:40:41

Hola.

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

Bytes!!

Casimiro Notevi

28-05-2006 20:41:26

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

Código:

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

28-05-2006 20:42:15

Sotrono, casi nos tropezamos :)

kman	29-05-2006 02:55:32

hey!

Gracias por la ayuda!:D

La franja horaria es GMT +2. Ahora son las 07:36:03.