FiveTech Support Forums

FiveWin / Harbour / xBase community
Board indexAll discussionsLogin (GitHub)
Board index FiveWin para Harbour/xHarbour Calcular Ultimo dia del Mes
jnavas
Posts: 492
Joined: Wed Nov 16, 2005 12:03 PM
Re: Calcular Ultimo dia del Mes
Posted: Tue Mar 10, 2015 01:35 AM
Armando wrote: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.
Saludos
Juan Navas
www.datapronet.com
www.adaptapro.com
jnavas@adaptapro.com
joseluisysturiz
Posts: 2064
Joined: Fri Jan 06, 2006 09:28 PM
Re: Calcular Ultimo dia del Mes
Posted: Tue Mar 10, 2015 03:10 AM
acuellar wrote: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... :-)
Dios no est谩 muerto...



Gracias a mi Dios ante todo!
Carlos Mora
Posts: 989
Joined: Thu Nov 24, 2005 03:01 PM
Re: Calcular Ultimo dia del Mes
Posted: Tue Mar 10, 2015 09:17 AM
Otra m谩s, aprovechando las funciones de aritm茅tica de fechas de Clipper/Harbour

Code (fw): Select all Collapse
//----------------------------------------------------------------------------------
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 ) )
Saludos
Carlos Mora
http://harbouradvisor.blogspot.com/
StackOverflow http://stackoverflow.com/users/549761/carlos-mora
鈥淚f you think education is expensive, try ignorance"
Dioni
Posts: 37
Joined: Tue May 12, 2009 08:45 PM
Re: Calcular Ultimo dia del Mes
Posted: Tue Mar 10, 2015 02:17 PM

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
Posts: 2170
Joined: Fri Jul 18, 2008 01:24 AM
Re: Calcular Ultimo dia del Mes
Posted: Tue Mar 10, 2015 10:13 PM
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.
Francisco J. Alegr铆a P.

Chinandega, Nicaragua.



Fwxh-MySql-TMySql

Continue the discussion

Static archive 路 New replies & topics via GitHub Discussions