Algo parecido a GOMONTH( )?

[noe aburto]

Ejemplo de GOMONTH( ) (Función)

SET CENTURY ON
STORE GOMONTH({^1998-02-16}, 5) TO gdPlazo

CLEAR
? gdPlazo && Muestra 16/07/1998
? GOMONTH({^1998-12-31}, 2) && Muestra 28/02/1999
? GOMONTH({^1998-12-31}, -2) && Muestra 31/10/1998

Saben si hay algo semejante en FHW o xharbour

Gracias

[nageswaragunupudi]

AddMonth( <dDate>, <nMonths> ) --> dNewDate

[Sistem]

tarde demais.... ainda estava faltando com mes negativo

Code: Select all | Expand

MsgInfo(SomaMes(ctod("31/12/1998"), 2))
Function SomaMes(dData, nMes1)
Local x1, ndia:=day(dData), nMes:=month(dData), nAno:=year(dData), dNewDt

    for x1=1 to nMes1
        nMes++
        if nMes == 13
           nMes:=1
           nAno++
        endif
    next
    ? "ndia"+Str(ndia)
    ? "nmes"+Str(nmes)
    ? "nano"+Str(nano)

    dNewDt := ctod(strzero(1,2)+"/"+strzero(nMes,2)+"/"+strzero(nAno,4))
    if ndia > day(FimMes(dNewDt))
       dNewDt := FimMes(dNewDt)
    Else
       dNewDt := ctod(strzero(nDia,2)+"/"+strzero(nMes,2)+"/"+strzero(nAno,4))
    endif
Return dNewDt

Function Fimmes(data1)          // Funcao Final do mês
 Local final, ano:=Year(data1), mes:=Month(data1)+1, dia:="01"

 If mes = 13
    ano=ano+1
    mes=1
 Endif

 ano = Str(Ano-1900,2)
 mes = Str(mes,2)
 final = ctod(dia+"/"+mes+"/"+ano)
Return (final-1)