Calcular Ultimo dia del Mes

[jnavas]

Amigos:

Pues parece que cada uno quiere lucir lo mejor de su código, pero como dice
Ademar, están descubriendo el agua caliente,

Juan:
Es función de xHarbour, aún no utilizo Harbour al 100%

Saludos

Armando
Gracias, cualquier codigo aportado es una gran ayuda.

[joseluisysturiz]

No se porque quieren descubrir la pólvora si existe la función: nDia:=DaysInMonth(nMes)

Saludos,

Adhemar

Creo esta es mejor para lo que el colega quiere DaysInMonth(nMes) ya que solo colocas el numero del MES, en esta EoM( Date() ), parece hay que colocar la fecha completa, por lo menos asi pude probar ambas, pero el resultado es el mismo, que gran foro somos, saludos...

[Carlos Mora]

Otra más, aprovechando las funciones de aritmética de fechas de Clipper/Harbour

Code: Select all  Expand view

//----------------------------------------------------------------------------------
FUNCTION EOM( dDate )
//----------------------------------------------------------------------------------
   // Si a un dia del mes siguiente a la fecha dada ...
   dDate+= 40 - Day( dDate )
   //... le resto su Day(), obtengo el último dia del mes anterior
RETURN ( dDate - Day( dDate ) )
 

[Dioni]

#include "FiveWin.ch"

FUNCTION Main()
LOCAL nMes, nAno
PRIV D
SET DATE BRITISH
SET CENTURY ON
nMes := 02;nAno := 2016
D := UltimoDiaMes(nMes, nAno)
? D // Retorna: 29/02/2016
RETURN NIL

FUNCTION UltimoDiaMes(nMes, nAno)
Local d
d:= CToD("01/" + Str(If(nMes == 12, 01, nMes+ 1), 2)+ "/" + Str(If(nMes == 12, nAno+ 1, nAno), 4) );d--
RETURN d


solo cambiar a 4 digitos el strin del año

[FranciscoA]

MsgInfo( DaysInMonth(Month(date())) ) // Devuelve los dias en un mes dado

SET DATE BRITISH
msginfo( EoM( Date() ) ) //Esta devuelve la fecha completa al ultimo dia de un mes segun fecha dada.

El compañero pregunto por una funcion que le devolviera una fecha completa con el ultimo dia del mes.
Asi que creo que la function expuesta por Armando es la que necesita, aunque se postearon un par con los mismos resultados.

Armando wrote:
Amigos:

Y en xHarbour existe esta otra función

EoM( [<dDate>] ) --> dLastDayOfMonth

Saludos.