Progress - Cantidad de dias de un mes

   
Vista:

Cantidad de dias de un mes

Publicado por Elvys Siliceo Arteaga (5 intervenciones) el 04/11/2010 23:25:04
Necesito el comando o una función para extraer el numero de de días de un mes.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Cantidad de dias de un mes

Publicado por Richard (18 intervenciones) el 05/11/2010 16:47:35
/* Podrías hacer algo así: */

DEFINE VARIABLE dtFecha AS DATE NO-UNDO.
DEFINE VARIABLE iMes AS INTEGER NO-UNDO.
DEFINE VARIABLE iDia AS INTEGER NO-UNDO.
DEFINE VARIABLE iCont AS INTEGER NO-UNDO.

dtFecha = TODAY.
iMes = MONTH(dtFecha).
iDia = DAY(dtFecha).

DO iCont = iDia TO 31:
dtFecha = dtFecha + 1.
IF MONTH(dtFecha) <> iMes THEN DO:
iDia = iCont.
LEAVE.
END.
END.

MESSAGE "Los dias del mes " iMes " son " iDia
VIEW-AS ALERT-BOX INFO BUTTONS OK TITLE "Fecha".

/* Lo metes en un procedimiento o en una función y listo. */
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Cantidad de dias de un mes

Publicado por Elvys Siliceo Arteaga (5 intervenciones) el 08/11/2010 16:08:10
Gracias, es lo andaba buscando.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Cantidad de dias de un mes

Publicado por DparteD (129 intervenciones) el 05/11/2010 19:57:39
/************ Visualiza los dias del mes de hoy *********/
DEF VAR DIAS-MES AS INT FORMAT "99" EXTENT 12
INITIAL [31,28,31,30,31,30,31,31,30,31,30,31] NO-UNDO.

display dias-mes[month(today)].
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Cantidad de dias de un mes

Publicado por Elvys Siliceo Arteaga (5 intervenciones) el 08/11/2010 15:53:56
Muchas gracias.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Cantidad de dias de un mes

Publicado por charly (12 intervenciones) el 09/11/2010 00:02:44
/*------------------------------------------------------------------------
File : LastDay.p
Purpose : Permite dar el Día Ultimo del mes.
Deacuerdo a los parametros de Mes y Año.

Syntax : Run Func\LastDay.p (Mes,Año, Output LastDay).

Author(s) :Charly
Created :04/09/2000
Notes :
----------------------------------------------------------------------*/
/* This .W file was created with the Progress AppBuilder. */
/*----------------------------------------------------------------------*/

/* *************************** Definitions ************************** */
DEFINE INPUT PARAMETER pMes AS INTEGER NO-UNDO.
DEFINE INPUT PARAMETER pAnio AS INTEGER NO-UNDO.
DEFINE OUTPUT PARAMETER pFecha_Dia_Ultimo AS DATE NO-UNDO.

IF pMes = 12 THEN
ASSIGN pFecha_Dia_Ultimo = DATE(INTEGER(pMes), 31, INTEGER(pAnio)).
ELSE
ASSIGN pFecha_Dia_Ultimo = DATE(INTEGER(pMes) + 1, 1, INTEGER(pAnio)) - 1.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Cantidad de dias de un mes

Publicado por Elvys Siliceo Arteaga (5 intervenciones) el 09/11/2010 23:00:02
muchas gracias por la ayuda me sirvio de mucho.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Cantidad de dias de un mes

Publicado por Ariel Garcia gariel_guffo@hotmail.com (2 intervenciones) el 21/06/2012 15:48:42
DEF VAR fechaO AS date init date("15/02/2004").
des var fechaNueva as date.
int var dias as int.

fechaO = ADD-INTERVAL ( fechaO, 1, 'months').

fechaNueva = ADD-INTERVAL (date("01/" +month( fechaO) + "/" + year(fechaO) ), -1, 'days').
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Cantidad de dias de un mes

Publicado por KikeMtz (6 intervenciones) el 04/07/2012 22:53:14
Este codigo funciona, considera que i-v define el mes, y para el año puede ser el año corriente o el que quieras...

1
2
3
4
5
6
7
8
9
10
def var i-v as inte no-undo.
def var dias-v as inte no-undo.
repeat i-v = 1 to 12. /* Para simular los meses */
  assign /* Esta instruccion es la buena */
    dias-v = day(date(if i-v = 12 then 1 else i-v + 1, 1, year(today) +
    if i-v = 12 then 1 else 0) - 1).
  display
    "Mes" i-v "dias"
    dias-v "Año" year(today) with no-labels.
end.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar