2 respuestas en este tema

[FELIX]

Hola a todos. EStoy realizando un calculo automático donde al escoger una fecha en un datatimepicker, me muestre en un dbedit el resultado de mi calculo.
a mis dias debo sumarle 7, a los meses restar 3 y al año sumarle 1 . Tengo este codigo pero no me sirve

delphi

  DateTimePicker3.Date:=IncDay(DateTimePicker3.Date,7);
  DateTimePicker3.Date:= IncMonth(DateTimePicker3.Date,-3);
  DateTimePicker3.Date:=IncYear(DateTimePicker3.Date,1);
  DBEdit80.Text:= DateToStr(DateTimePicker3.Date);

 

Tengo este otro pero si el dia es 25 o mayor el resultado va a hacer 32 y deberia ser 1

delphi

mes := StrToInt(formatdatetime('mm',DateTimePicker3.Date));
dia:= StrToInt(formatdatetime('dd',DateTimePicker3.Date));
ano:= StrToInt(formatdatetime('yyyy',DateTimePicker3.Date));
 
Dia1:=dia + 7;
mes1:=mes+9;
ano1:= ano;
total:= IntToStr(dia1)+ '/'+IntToStr(mes1)+ '/'+IntToStr(ano1);
DBEdit80.Text:= intToStr(total);

Me podrian dar alguna ayuda o alguna luz

[escafandra]

¿Algo así?

delphi

var
  D, M, Y: WORD;
begin
  DecodeDate(DateTimePicker1.Date, Y, M, D);
  D:= (D+7) mod 31;
  M:= (M+9) mod 12;
  inc(Y, 1);
  DateTimePicker1.Date:= EncodeDate(Y, M, D);
end;

Saludos.

[FELIX]

funciono perfecto, gracias por tu ayuda Escafandra