¿ Quieres imprimir esta página ? Volver a la página principal de Recursos iSeries AS400 ¿ Necesitas ayuda ? En pruebas
System i5 iSeries AS400 Recursos. Compartiendo generamos conocimiento
Novedades en Recursos iSeries AS400
Noticias tecnológicas
Documentos
Rutina para conocer el día de la semana (lunes, martes, miércoles, ...) que es una fecha concreta

Rutina para conocer el día de la semana (lunes, martes, miércoles,...) que es una fecha

El código es el siguiente:

     

     H DEBUG DATEDIT(*YMD)
      *
      *CONSTANTES
      *  Un dia inicial del cual sabemos que fue domingo. Formato ISO
     D DIABASE         S               D   INZ(D'1899-12-31')
     D*  Dias del mes
     D NOMDIAS         S              9    DIM(7) CTDATA PERRCD(7)
     D*----------------------------------------------------------------*
     C* PROGRAMA
     C*----------------------------------------------------------------*
     C*  Subrutinas
     C*----------------------------------------------------------------*
Esta subrutina te devolvera el dia de la semana en numero es decir 1,2,3,4,5,6 o 7 a partir de un dia base. entonces solo tienes que buscar con ese numero en la tabla NOMDIAS para conseguir el nombre
     
     C*----------------------------------------------------------------*
     C*  D¡a de la semana
     C     DiaSemana     BEGSR
     C                   
      * Dad una fecha fecha1  
     C     FECHA1        SUBDUR    DIABASE       NumDias:*D
     C* Si la diferencia de fechas es negativa el dia de la Semana 
     C* se obtiene como DiadelaSemana= 7-Resto
     C                   IF        NumDias<0
     C                   EVAL      NumDias=NumDias*-1
     C                   DIV       7             NumDias
     C                   MVR                     Resto
     C                   EVAL      DiaDeLaSemana=7-Resto
     C                   ELSE
     C* Si no simplemente coger el resto.
     C                   DIV       7             NumDias
     C                   MVR                     Resto
     C                   EVAL      DiaDeLaSemana=Resto
     C                   ENDIF
     C                   IF        DiaDelaSemana=0
     C                   EVAL      DiaDelaSemana=7
     C                   ENDIF
     C 
     C                   EVAL      NOMBREDIA=NOMDIAS(DiaDeLaSemana)  
     C
     C                   ENDSR
     C*----------------------------------------------------------------*
     
**CTDATA NOMDIAS
LUNES    MARTES   MIERCOLESJUEVES   VIERNES  SABADO   DOMINGO  

     

Puedes ver el fuente aquí
Documento cedido por Melos

Mayo 2003

Comentarios de usuarios

Nombre:
Mail:
Comentario:
 
Subir a la parte superior de la web
 

 

NUESTRA COMUNIDAD EN
ÚNETE Y.... ¡¡ PARTICIPA !!
Dossiers técnicos iSeries y AS400
- Seguridad
- Alta disponibilidad.
Nuestros links favoritos
- Tendencias tecnologías de la información
Expertos en 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 y shareware para el iSeries AS400
- Utilidades para el iSeries AS400 realizadas por profesionales
- Documentos. Trucos e ideas para resolver tus problemas
- 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: PUBLICACIONES HELP400, S.L. CIF:B-60-202827 Gran Vía de les Corts Catalanes, núm. 715, Entresuelo – 3ª - Barcelona - Tel.+34.932.310.049