LastDayoM() xHarbour

[FRANK[1]]

Hola a todos,
hay una manera rápida de conocer el último día del mes
lo que equivale a LastDayoM () de xHarbour?
Frank

[Bingen Ugaldebere]

De nuestra librerí­a Bisoft.Lib
**/
* FUNCION que Devuelve el primer dí­a de un mes a partir de una fecha
de ese mes
* @author Bingen Ugaldebere
* @param dDate Fecha de referencia
* @return el primer dí­a de un mes
*/
Function FirstOfMonth(dDate)
Return Ctod("01-"+Substr(Dtoc(dDate),4))
**/
* FUNCION que Devuelve el último dí­a de un mes a partir de una fecha
de ese mes
* @author Bingen Ugaldebere
* @param dDate Fecha de referencia
* @return el último dí­a de un mes
*/
Function LastOfMonth(dDate)
Local nMonth:=Month(dDate)
Do While Month(dDate)=nMonth
dDate++
Enddo
Return dDate-1

[Carlos Ortiz]

eom()
"FRANK" <f.luidelli@novatron.it> escribió en el mensaje
news:[email=4d5026cd@svctag-j7w3v3j....]4d5026cd@svctag-j7w3v3j....[/email]
> Hola a todos,
> hay una manera rápida de conocer el último día del mes
> lo que equivale a LastDayoM () de xHarbour?
>
> Frank
>

[FRANK[1]]

Thanks
"Bingen Ugaldebere" <bingen@bisoft.es> ha scritto nel messaggio
news:4d502c92$[email=1@svctag-j7w3v3j....]1@svctag-j7w3v3j....[/email]
> De nuestra librería Bisoft.Lib
>
>
> **/
> * FUNCION que Devuelve el primer día de un mes a partir de una fecha de
> ese mes
>
> * @author Bingen Ugaldebere
> * @param dDate Fecha de referencia
>
> * @return el primer día de un mes
> */
>
> Function FirstOfMonth(dDate)
> Return Ctod("01-"+Substr(Dtoc(dDate),4))
>
>
> **/
> * FUNCION que Devuelve el último día de un mes a partir de una fecha de
> ese mes
>
> * @author Bingen Ugaldebere
> * @param dDate Fecha de referencia
>
> * @return el último día de un mes
> */
>
> Function LastOfMonth(dDate)
> Local nMonth:=Month(dDate)
> Do While Month(dDate)=nMonth
> dDate++
> Enddo
> Return dDate-1
>

[FRANK[1]]

Thanks
"Carlos Ortiz" <cortizassist@hotmail.com> ha scritto nel messaggio
news:4d5050bf$[email=1@svctag-j7w3v3j....]1@svctag-j7w3v3j....[/email]
> eom()
>
> "FRANK" <f.luidelli@novatron.it> escribió en el mensaje
> news:[email=4d5026cd@svctag-j7w3v3j....]4d5026cd@svctag-j7w3v3j....[/email]
>> Hola a todos,
>> hay una manera rápida de conocer el último día del mes
>> lo que equivale a LastDayoM () de xHarbour?
>>
>> Frank
>>
>
>

[Bingen Ugaldebere]

Ya ves, no conocí­a esta función ni todas las de su familia, yo me las
hice todas ellas hace años para Clipper.
A mi edad y todaví­a aprendo cosas nuevas.
El 07/02/2011 21:06, Carlos Ortiz escribió:
> eom()
>
> "FRANK"<f.luidelli@novatron.it> escribió en el mensaje
> news:[email=4d5026cd@svctag-j7w3v3j....]4d5026cd@svctag-j7w3v3j....[/email]
>> Hola a todos,
>> hay una manera rápida de conocer el último dí­a del mes
>> lo que equivale a LastDayoM () de xHarbour?
>>
>> Frank
>>
>
>

[Bingen Ugaldebere]

Perdona Carlos y la pregunta es, ¿por que no funciona eom()? ¿hay que
linkar alguna lib?
Salu2.
El 07/02/2011 21:06, Carlos Ortiz escribió:
> eom()
>
> "FRANK"<f.luidelli@novatron.it> escribió en el mensaje
> news:[email=4d5026cd@svctag-j7w3v3j....]4d5026cd@svctag-j7w3v3j....[/email]
>> Hola a todos,
>> hay una manera rápida de conocer el último dí­a del mes
>> lo que equivale a LastDayoM () de xHarbour?
>>
>> Frank
>>
>
>

[Maarten Roos]

FUNCTION LastDay( dDate )
LOCAL d:= dDate
IF dDate == NIL
d:= Date()
ENDIF
RETURN ( d+= 45 - Day( d ) ) - Day( d )
From the Nanforum lib.

[Carlos Ortiz]

Sip, agregar la CT.LIB (Clipper Tools), hay varias funciones más ahí dentro,
algunas más interesantes que otras.
Tengo la ayuda completa de las CT en chm, si la necesitas avise nomas que te
la mando por mail.
Un saludo.

[Bingen Ugaldebere]

Muchas gracias, mándame la ayuda si puedes a
bingen @ bisoft . es
Gracias
El 08/02/2011 15:11, Carlos Ortiz escribió:
> Sip, agregar la CT.LIB (Clipper Tools), hay varias funciones más ahí­ dentro,
> algunas más interesantes que otras.
>
> Tengo la ayuda completa de las CT en chm, si la necesitas avise nomas que te
> la mando por mail.
>
> Un saludo.
>
>