ADICIONAR ANOS A UMA DATA

[CDV]

BOM DIA AMIGOS.

TEM COMO ADICIONAR ANOS A UMA DATA ?

A FORMA QUE EU ACHEI SERIA ACRESCENTANDO 36500 DIAS EXISTE
OUTRA FORMA ?

OBRIGADO.

[Dudu_XBase]

Postei mas somente com adição de 1 ano somente exemplo

Solução 1

Código: Selecionar todos

   set century on
    set date to briti
  dInicio := date()  // atribuo a data de hj
   // Qtde de ano a adicionar
   nAno := 1
   // Adiciono mais um ano ...
  dFim  := ctod(strzero(day(dInicio),2)+"/"+strzero(month(dInicio),2)+"/"+strzero(year(dInicio)+nAno,4))
   // mostro a data
  ? dtoc(dFim)
  

Solução 2 com função addmonth da lib ctools

Código: Selecionar todos

    set century on
    set date to briti
     // Adicionar um ano....ou mais eu incremento essa váriavel....
    nAno := 1
    dInicio := date()  // atribuo a data de hj
     // mostro a data com a função
    ? addmonth(dInicio,nAno*12)