RE: Para saber el dia de la semana de una fecha dada

[Juan Carlos Sevilla]

Buenos Dias:            Este programa lo encontre en un NEWS/400 (Nov'1996) en Trucos y Tecnicas. Es el siguiente:  * DAYOFWEEK = 1 - 7 (Domingo - Sabado)                  DDATEIN           S               D   DATFMT(*ISO)       DDAYOFWEEK        S              7  0                     *                                                       C     *ENTRY        PLIST                                C                   PARM                    DATEIN       C                   PARM                    DAYOFWEEK     *                                                       C     DATEIN        SUBDUR    D'1899-12-30' DayOfWeek:*D C                   DIV       7             DAYOFWEEK    C                   MVR                     DAYOFWEEK     *                                                       C                   IF        DAYOFWEEK < 1              C                   EVAL      DAYOFWEEK = DAYOFWEEK + 7  C                   ENDIF                                 *                                                       C                   EVAL      *INLR = *ON                  ---- Funciona correctamente. Tan solo hay que correlacionar el DAYOFWEEK que retorna al dia de la semana español, es decir (1=Domingo, 2=Lunes...7=Sabado) cuando en España (1=Lunes, 2=Martes... 7=Domingo) Un Saludo p.d.: Es perpetuo. Habria que plantearse si hacerlo en un procedimiento (más que incluirlo en todos los fuentes. En este caso quitar el *ENTRY...) De: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] En nombre de David Enviado el: jueves, 13 de julio de 2006 8:39 Para: forum.help400@combios.es Asunto: Para saber el dia de la semana de una fecha dada Hay alguna función que me devuelva el día de la semana de una fecha que le pase       Dpto.Informático Foisa. SA