¿ Quieres imprimir esta página ? Volver a la página principal de Recursos iSeries AS400 ¿ Necesitas ayuda ? En pruebas
Recursos iSeries AS400. Compartiendo generamos conocimiento
Novedades en Recursos iSeries AS400
Últimas noticias del iSeries AS400
Primer dia del mes y ultimo dia del mes

Categoría : Programación
Autor : Oswaldo
Título : Primer dia del mes y ultimo dia del mes


Descripción del truco:
De forma estructurada, asignamos 2 variables que contengan la fecha inicial del mes y la fecha final del mes (fechas validas) del mes anterior

/*-------------------------------------------------------------------------
* Definicion de campos de trabajo
*-------------------------------------------------------------------------
D ds
D WAnoInicial 4s 0
D WMesInicial 2s 0
D WDiaInicial 2s 0
D WFechaInicial 1 8s 0 inz(0)
D ds
D WAnoFinal 4s 0
D WMesFinal 2s 0
D WDiaFinal 2s 0
D WFechaFinal 1 8s 0 inz(0)

/free
WFechaInicial=%int(%char((%date(*datei) - % months(1)):*iso0));
WFechaFinal =%int(%char((%date(*datei) - %months(1)):*iso0));
//primer dia del mes y el ultimo
WDiaInicial=1;
WDiaFinal=31;

//dia final del mes
dow ('1');
test(de) *iso WFechaFinal;
if (%error);
WDiaFinal-=1;
iter;
endif;
leave;
enddo;
/end-free

Fecha 02-09-2004


Tienes algún truco que quieras compartir con todos los profesionales de Recursos iSeries AS400?.Envianoslo y si resulta seleccionado te enviaremos un vale de Amazon por valor de 50$

Comentarios de usuarios

Nombre:
Mail:
Comentario:
 

Subir a la parte superior de la web

Symtrax
Dossiers técnicos iSeries y AS400
- Dossier de seguridad
- Alta disponibilidad.
¿Buscas trabajo ?
Inscríbete en nuestra lista laboral y recibirás las ofertas de trabajo en tu buzón de correo electrónico.
Nuestros links preferidos
- Tendencias tecnologías de la información
Expertos en materías relacionadas con las tecnologías de la información, nos dan su punto de vista sobre las tendencias actuales y futuras
- Los últimos anuncios sobre hardware-software para iSeries AS400 realizados por IBM
- Freeware. Software gratuito para el iSeries AS400
- Utilidades para el iSeries AS400 realizadas por profesionales
- Documentos. Trucos e ideas para resolver tus problemas
- Manuales. Los manuales y links más interesantes del iSeries AS400

  Links patrocinados
  •  
  •  

[ Soy nuevo |   Profesionales |   AS qué |   Empresas |    Foros |   Recomiéndanos |    Productos ]
 
Recursos iSeries AS400 es una web de: Poliedric, s.c.p. CIF:G63005011 Urgell 143 1º1ª 08036 - Barcelona - Tel.+34.902.361.344