Como obtengo el ultima dia del mes

[jjgp2]

Hola
Bunas tardes
intente usar DaysInMonth( Month(dDate), IsLeap() ) pero me marca error
Compilando vtasxdiames.prg...
vtasxdiames.prg(73) Warning W0001 Ambiguous reference: 'G_FECHA'
vtasxdiames.prg(74) Warning W0001 Ambiguous reference: 'G_FECHA'
Enlazando Smiwin2.exe...
Error: Unresolved external '_HB_FUN___DAYSINMONTH' referenced from
C:SMIWIN2.1OBJVTASXDIAMES.OBJ
1 Files, 2 Warnings, 1 Errors
Tiempo de compilación: 0.33s Tiempo de enlazado: 0.36s Tiempo total:
0.97s
me podrian indicar cual es la funcion en xailer o en que libreria de
xharbour se encunta esta funcion.
por su ayuda mil gracias

[jlalin]

José,
puedes usar EOM() que creo que está en ct.lib
Saludos,
José Lalí­n

[ignacio]

jjgp2 escribió el mié, 15 febrero 2012 20:50Hola
Bunas tardes
intente usar DaysInMonth( Month(dDate), IsLeap() ) pero me marca error
Compilando vtasxdiames.prg...
vtasxdiames.prg(73) Warning W0001 Ambiguous reference: 'G_FECHA'
vtasxdiames.prg(74) Warning W0001 Ambiguous reference: 'G_FECHA'
Enlazando Smiwin2.exe...
Error: Unresolved external '_HB_FUN___DAYSINMONTH' referenced from
C:SMIWIN2.1OBJVTASXDIAMES.OBJ
1 Files, 2 Warnings, 1 Errors
Tiempo de compilaci�n: 0.33s Tiempo de enlazado: 0.36s Tiempo total:
0.97s
me podrian indicar cual es la funcion en xailer o en que libreria de
xharbour se encunta esta funcion.
por su ayuda mil gracias
Crea una variable con el primer dí­a del mes siguiente y luego le restas uno.
Un saludo

[Carlos Ortiz]

Sería algo como esto, se puede mejorar.
// ----------------------------------------------
Func Udm(Fecha)
// ----------------------------------------------
Local mes:=mont(fecha), ano:=year(fecha), tablaudm[12]
tablaudm[1] ='31'
tablaudm[2] =if(ano%4=0, '29', '28')
tablaudm[3] ='31'
tablaudm[4] ='30'
tablaudm[5] ='31'
tablaudm[6] ='30'
tablaudm[7] ='31'
tablaudm[8] ='31 '
tablaudm[9] ='30'
tablaudm[10]='31'
tablaudm[11]='30'
tablaudm[12]='31'
Retu val(tablaudm[mes])

[jfgimenez]

José,
aquí­ tienes una función que lo calcula:
//---------------------------------------------------------- --------------------
FUNCTION LastDay( dFecha )
IF ValType( dFecha ) == "N"
RETURN { 31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31 }[ dFecha ]
ENDIF
RETURN CToD( "01/" + Substr( DToC( IIF( Day( dFecha ) < 15, dFecha + 40,
dFecha + 20 ) ), 4 ) ) - 1
//---------------------------------------------------------- --------------------
Si le pasas un número del 1 al 12, te devuelve los dí­as que ves ahí­,
pero si le pasas una fecha, te calcula exactamente el último dí­a del mes
correspondiente.
Un saludo,
José F. Giménez
http://www.xailer.com
http://www.xailer.info

[zeasoftware]

EoM()
Returns the date of the last day in a month.
Syntax
EoM( [<dDate>] ) --> dLastDayOfMonth
ct.lib.
Saludos.
Ramón Zea
Móvil.: 993-231.62.29
Tel./Fax: 993-353-46-73
zeasoftware@hotmail.com
zeasoft.movil@hotmail.com
"Jose F. Gimenez" escribió en el mensaje de noticias:4f3d34b7$[email=1@svctag-j7w3v3j....]1@svctag-j7w3v3j....[/email]
José,
aquí­ tienes una función que lo calcula:
//---------------------------------------------------------- --------------------
FUNCTION LastDay( dFecha )
IF ValType( dFecha ) == "N"
RETURN { 31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31 }[ dFecha ]
ENDIF
RETURN CToD( "01/" + Substr( DToC( IIF( Day( dFecha ) < 15, dFecha + 40,
dFecha + 20 ) ), 4 ) ) - 1
//---------------------------------------------------------- --------------------
Si le pasas un número del 1 al 12, te devuelve los dí­as que ves ahí­,
pero si le pasas una fecha, te calcula exactamente el último dí­a del mes
correspondiente.
Un saludo,
José F. Giménez
http://www.xailer.com
http://www.xailer.info
--

[jjgp2]

muchas gracias a todos ya logre realizar mi aplicacion
"José de Jesús García" <jjgp2@yahoo.com> escribió en el mensaje
news:4f3c0c7a$[email=1@svctag-j7w3v3j....]1@svctag-j7w3v3j....[/email]
> Hola
> Bunas tardes
>
> intente usar DaysInMonth( Month(dDate), IsLeap() ) pero me marca error
>
> Compilando vtasxdiames.prg...
> vtasxdiames.prg(73) Warning W0001 Ambiguous reference: 'G_FECHA'
> vtasxdiames.prg(74) Warning W0001 Ambiguous reference: 'G_FECHA'
> Enlazando Smiwin2.exe...
> Error: Unresolved external '_HB_FUN___DAYSINMONTH' referenced from
> C:SMIWIN2.1OBJVTASXDIAMES.OBJ
> 1 Files, 2 Warnings, 1 Errors
> Tiempo de compilación: 0.33s Tiempo de enlazado: 0.36s Tiempo total:
> 0.97s
>
> me podrian indicar cual es la funcion en xailer o en que libreria de
> xharbour se encunta esta funcion.
>
> por su ayuda mil gracias
>
>
>

[jasm.quitaesto]

Hola amigos,
No se si será por que llevo en esto de la programación mas de 30 años,
no se si es que nos estamos acostumbrando a que nos lo den todo hecho,
pero cuando veo preguntas como esta, y sin ánimo de ofender ni criticar
a nadie, no puedo dejar de preguntarme ¿somos REALMENTE programadores?
En mis tiempos cuando necesitabas una función que no tení­a el lenguaje
te pegabas un rato pensándola, la estudiabas, hací­as un diagrama de
flujo si era necesario, la creabas, la probabas, la depurabas y listo:
al cajón de las herramientas.
Funciones como esta, la de abrir el cajón de monedas, la de disparar el
corte del ticket, las funciones matemáticas .... y otras muchas son
cosas del dí­a a dí­a de un programador. Aprendí­ que cada programador
tiene su "caja de herramientas" (si estás en un grupo la caja se
comparte) en la que guardas esas pequeñas funciones, procedimientos y
clases CREADAS POR EL MISMO que pueden volver ser útiles algún dí­a.
Hoy parece que cuando el lenguaje no te proporciona algo ya se nos viene
el mundo encima y no sabemos seguir.
Saludos
Alf+
El 15/02/2012 20:50, José de Jesús Garcí­a escribió:
> Hola
> Bunas tardes
>
> intente usar DaysInMonth( Month(dDate), IsLeap() ) pero me marca error
>
> Compilando vtasxdiames.prg...
> vtasxdiames.prg(73) Warning W0001 Ambiguous reference: 'G_FECHA'
> vtasxdiames.prg(74) Warning W0001 Ambiguous reference: 'G_FECHA'
> Enlazando Smiwin2.exe...
> Error: Unresolved external '_HB_FUN___DAYSINMONTH' referenced from
> C:SMIWIN2.1OBJVTASXDIAMES.OBJ
> 1 Files, 2 Warnings, 1 Errors
> Tiempo de compilación: 0.33s Tiempo de enlazado: 0.36s Tiempo total:
> 0.97s
>
> me podrian indicar cual es la funcion en xailer o en que libreria de
> xharbour se encunta esta funcion.
>
> por su ayuda mil gracias
>
>
>

[ssi-estono-]

Jose, Entonces, deberiamos preguntarnos:
¿Porque utilizamos Xailer u otras herramientas?
¿No sera mejor hacernos cada uno las nuestras?
El principal error de los programadores, y tu particularmente conoces mis
ideas, es que no queremos compartir.
Pregunta como les va a los que trabajan solos, y comparalo con la situación
de los que trabajan en equipo.
Particularmente, me junto con lo que trabajan en equipo.
Esta idea, no solo la utilizo en programación, (cosa que ya sabes que manejo
poco). Lo utilizo en mi forma de vivir.
Como siempre, un abrazo:
Paco V
Ah, y gracias por su ayuda a :
Jose Afonso Suarez Moreno ( lo conoces?)
Bingen
Juanjo
Manu
Fredy
Israel Solis
Juanmanuel
Jose luis Capel
.......
.......
.......
Ignacio
Jose lalin
Jose Gimenez
....................
Y muchos massssssssssss que se me olvidan.
"José Alfonso Suárez Moreno" <jasm.quitaesto@tpvsoft.com> escribió en el
mensaje news:4f3e1b23$[email=1@svctag-j7w3v3j....]1@svctag-j7w3v3j....[/email]
> Hola amigos,
>
> No se si será por que llevo en esto de la programación mas de 30 años, no
> se si es que nos estamos acostumbrando a que nos lo den todo hecho, pero
> cuando veo preguntas como esta, y sin ánimo de ofender ni criticar a
> nadie, no puedo dejar de preguntarme ¿somos REALMENTE programadores? En
> mis tiempos cuando necesitabas una función que no tenía el lenguaje te
> pegabas un rato pensándola, la estudiabas, hacías un diagrama de flujo si
> era necesario, la creabas, la probabas, la depurabas y listo: al cajón de
> las herramientas.
>
> Funciones como esta, la de abrir el cajón de monedas, la de disparar el
> corte del ticket, las funciones matemáticas .... y otras muchas son cosas
> del día a día de un programador. Aprendí que cada programador tiene su
> "caja de herramientas" (si estás en un grupo la caja se comparte) en la
> que guardas esas pequeñas funciones, procedimientos y clases CREADAS POR
> EL MISMO que pueden volver ser útiles algún día.
>
> Hoy parece que cuando el lenguaje no te proporciona algo ya se nos viene
> el mundo encima y no sabemos seguir.
>
> Saludos
>
> Alf+
>
> El 15/02/2012 20:50, José de Jesús García escribió:
>> Hola
>> Bunas tardes
>>
>> intente usar DaysInMonth( Month(dDate), IsLeap() ) pero me marca error
>>
>> Compilando vtasxdiames.prg...
>> vtasxdiames.prg(73) Warning W0001 Ambiguous reference: 'G_FECHA'
>> vtasxdiames.prg(74) Warning W0001 Ambiguous reference: 'G_FECHA'
>> Enlazando Smiwin2.exe...
>> Error: Unresolved external '_HB_FUN___DAYSINMONTH' referenced from
>> C:SMIWIN2.1OBJVTASXDIAMES.OBJ
>> 1 Files, 2 Warnings, 1 Errors
>> Tiempo de compilación: 0.33s Tiempo de enlazado: 0.36s Tiempo total:
>> 0.97s
>>
>> me podrian indicar cual es la funcion en xailer o en que libreria de
>> xharbour se encunta esta funcion.
>>
>> por su ayuda mil gracias
>>
>>
>>
>

[jasm.quitaesto]

Paco,
Creo que no me he explicado bien. Lo que intento decir es que hay muchas
cosas que puedes hacer tu partiendo de lo que aporta el lenguaje de
programación y que no necesariamente tiene que ser implementado por el.
Imagina lo difí­cil que serí­a crear un lenguaje que recogiese todo y cada
uno de los casos particulares que se presentan a la hora de programar,
imagina lo complicado que serí­a mantener eso.
Creo que el programador tiene el deber de crear las funciones que
necesite para llevar a cavo su trabajo y no pensar que el lenguaje debe
tener todo lo que pueda necesitar.
Un fuerte abrazo.
Alf+.
El 17/02/2012 15:26, Paco V. escribió:
> Jose, Entonces, deberiamos preguntarnos:
>
> ¿Porque utilizamos Xailer u otras herramientas?
>
> ¿No sera mejor hacernos cada uno las nuestras?
>
> El principal error de los programadores, y tu particularmente conoces mis
> ideas, es que no queremos compartir.
>
> Pregunta como les va a los que trabajan solos, y comparalo con la situación
> de los que trabajan en equipo.
>
> Particularmente, me junto con lo que trabajan en equipo.
>
> Esta idea, no solo la utilizo en programación, (cosa que ya sabes que manejo
> poco). Lo utilizo en mi forma de vivir.
>
> Como siempre, un abrazo:
>
> Paco V
>
> Ah, y gracias por su ayuda a :
>
> Jose Afonso Suarez Moreno ( lo conoces?)
> Bingen
> Juanjo
> Manu
> Fredy
> Israel Solis
> Juanmanuel
> Jose luis Capel
> ......
> ......
> ......
>
> Ignacio
> Jose lalin
> Jose Gimenez
> ...................
> Y muchos massssssssssss que se me olvidan.
>
> "José Alfonso Suárez Moreno"<jasm.quitaesto@tpvsoft.com> escribió en el
> mensaje news:4f3e1b23$[email=1@svctag-j7w3v3j....]1@svctag-j7w3v3j....[/email]
>> Hola amigos,
>>
>> No se si será por que llevo en esto de la programación mas de 30 años, no
>> se si es que nos estamos acostumbrando a que nos lo den todo hecho, pero
>> cuando veo preguntas como esta, y sin ánimo de ofender ni criticar a
>> nadie, no puedo dejar de preguntarme ¿somos REALMENTE programadores? En
>> mis tiempos cuando necesitabas una función que no tení­a el lenguaje te
>> pegabas un rato pensándola, la estudiabas, hací­as un diagrama de flujo si
>> era necesario, la creabas, la probabas, la depurabas y listo: al cajón de
>> las herramientas.
>>
>> Funciones como esta, la de abrir el cajón de monedas, la de disparar el
>> corte del ticket, las funciones matemáticas .... y otras muchas son cosas
>> del dí­a a dí­a de un programador. Aprendí­ que cada programador tiene su
>> "caja de herramientas" (si estás en un grupo la caja se comparte) en la
>> que guardas esas pequeñas funciones, procedimientos y clases CREADAS POR
>> EL MISMO que pueden volver ser útiles algún dí­a.
>>
>> Hoy parece que cuando el lenguaje no te proporciona algo ya se nos viene
>> el mundo encima y no sabemos seguir.
>>
>> Saludos
>>
>> Alf+
>>
>> El 15/02/2012 20:50, José de Jesús Garcí­a escribió:
>>> Hola
>>> Bunas tardes
>>>
>>> intente usar DaysInMonth( Month(dDate), IsLeap() ) pero me marca error
>>>
>>> Compilando vtasxdiames.prg...
>>> vtasxdiames.prg(73) Warning W0001 Ambiguous reference: 'G_FECHA'
>>> vtasxdiames.prg(74) Warning W0001 Ambiguous reference: 'G_FECHA'
>>> Enlazando Smiwin2.exe...
>>> Error: Unresolved external '_HB_FUN___DAYSINMONTH' referenced from
>>> C:SMIWIN2.1OBJVTASXDIAMES.OBJ
>>> 1 Files, 2 Warnings, 1 Errors
>>> Tiempo de compilación: 0.33s Tiempo de enlazado: 0.36s Tiempo total:
>>> 0.97s
>>>
>>> me podrian indicar cual es la funcion en xailer o en que libreria de
>>> xharbour se encunta esta funcion.
>>>
>>> por su ayuda mil gracias
>>>
>>>
>>>
>>
>
>

[Carlos Mora]

El 16/02/2012 9:54, Ignacio Ortiz de Zúñiga escribió:
> Crea una variable con el primer dí­a del mes siguiente y
> luego le restas uno.
Cierto. Y para simplificar, se puede generalizar que a cualquier fecha
del mes siguiente le restas el dí­a y te da el ultimo dí­a del mes
anterior, es decir.
FUNCTION EOM( dFecha )
dFecha+= 35 - Day(dFecha) // esta es una fecha del mes siguiente,
restando el day() para evitar pasanos
RETURN ( dFecha - Day(dFecha) )
Saludos