FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour Sumar un mes a una fecha
Posts: 45
Joined: Fri Aug 16, 2019 12:51 AM
Sumar un mes a una fecha
Posted: Fri May 20, 2022 07:45 PM

Buenas tardes compañeros, estoy necesitando meter la fecha actual (el primer día del mes, acompañado del mes y el año) en un bucle, iterarlo, en cada iteracion sumarle un mes a esa fecha, y agregar esa nueva fecha a un array. Tengo una idea de cómo hacer el bucle, pero no sé cómo tomar el primer día del mes actual, ni cómo sumarle un mes a la fecha. Gracias de antemano.

Posts: 1818
Joined: Wed Oct 26, 2005 02:49 PM
Re: Sumar un mes a una fecha
Posted: Fri May 20, 2022 11:14 PM
Creo que es lo que necesitas

Code (fw): Select all Collapse
    Local nNroCtas := 12
    Local dPrimeraCuota := date()
    FOR i:=1 TO nNroCtas -1
        AADD(aFechas,AddMonth( dPrimeraCuota , i ) )
    NEXT
Saludos
LEANDRO AREVALO
Bogotá (Colombia)
https://hymlyma.com
https://hymplus.com/
leandroalfonso111@gmail.com
leandroalfonso111@hotmail.com

[ Turbo Incremental Link64 6.98 Embarcadero 7.70 ] [ FiveWin 25.01 ] [ xHarbour 64 bits) ]
Posts: 10733
Joined: Sun Nov 19, 2006 05:22 AM
Re: Sumar un mes a una fecha
Posted: Sat May 21, 2022 02:01 PM
First day

Code (fw): Select all Collapse
BOM( dDate )
Regards



G. N. Rao.

Hyderabad, India
Posts: 1818
Joined: Wed Oct 26, 2005 02:49 PM
Re: Sumar un mes a una fecha
Posted: Sat May 21, 2022 03:43 PM
Ultimo día del mes
Code (fw): Select all Collapse
EoM( dDate )
Saludos
LEANDRO AREVALO
Bogotá (Colombia)
https://hymlyma.com
https://hymplus.com/
leandroalfonso111@gmail.com
leandroalfonso111@hotmail.com

[ Turbo Incremental Link64 6.98 Embarcadero 7.70 ] [ FiveWin 25.01 ] [ xHarbour 64 bits) ]
Posts: 45
Joined: Fri Aug 16, 2019 12:51 AM
Re: Sumar un mes a una fecha
Posted: Sat May 21, 2022 05:21 PM

Muchas gracias a todos!!

Continue the discussion