Calculando una fecha con IncMonth

[marcoszorrilla]

Sobre qué aplicas IncMonth, sobre un campo de una base de datos?

Tendrás que hacer un "Post", para salvar los cambios. Pero si estás trabajando con otro componente Monthcalendar, TDAteTimePicker.... entonces el valor de este componente u otro tendrás que trasladarlo campo y luego hacer Post.

Código Delphi [-]
Edit;
CampoFecha.Value:=TDateTimePicker.Date;
Post;

Un Saludo.

[gsilvei]

ambos campos son de una base de datos.

Código Delphi [-]
procedure TFormPropostaApolice.INICIALExit(Sender: TObject);
var Data : tdatetime;
begin
  Data := INICIAL.Value;
  Data := IncMonth(Data,12);
  FINAL.Value:= Data;
end;

[gsilvei]

Hola,
Alguien tiene alguna idea?
Gracias

[gsilvei]

Resolvido a la fuerza bruta.

Código Delphi [-]
var    Data : tdatetime;

  if P_FINVIGENCIA.Enabled = False then
    begin
     Data := P_INIVIGENCIA.Value; 
     Data := IncMonth(Data,12);
     P_FINVIGENCIA.Value:= Data;
    end
    else
    if P_FINVIGENCIA.Enabled = True then
    Data := P_FINVIGENCIA.Value;