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

Pedro Molina Thu, 13 Jul 2006 05:36:14 -0700

Hola David :

Yo lo hago de la siguiente manera:

D NDIA           S              3 0
D FECHAP         S               D   datfmt(*ISO)

D DiasData        DS
D                                9    Inz('DOMINGO')
D                                9    Inz('LUNES')
D                                9    Inz('MARTES')
D                                9    Inz('MIERCOLES')
D                                9    Inz('JUEVES')
D                                9    Inz('VIERNES')
D                                9    Inz('SABADO')

* Arreglo de Dias
D DIAS                           9    DIM(7) Overlay(Diasdata)

*--------------- Proceso Principal --------------*

C     *Entry        Plist
C                   Parm                    Diasem            8

C                   MOVE      *DATE         FECHAP

* Actualiza la fecha en tabla DUMY
C/Exec Sql
C+ UPDATE qgpl/dumytab
C+      Set FECPRO = :FECHAP
C/End-Exec

* Recupera el numero de dia de Fecha de Proceso
C/Exec Sql
C+ SELECT dayofweek(date(FECPRO)) into :NDIA FROM QGPL/dumytab
C/End-Exec

* Asigna nombre del dia segun el numero de dia
C Eval Diasem = Dias(ndia)

Espero te sirva, saludos !!

From: "David" <[EMAIL PROTECTED]>
Reply-To: [email protected]
To: <[email protected]>
Subject: Para saber el dia de la semana de una fecha dada
Date: Thu, 13 Jul 2006 08:38:44 +0200

Hay alguna función que me devuelva el día de la semana de una fecha que le pase

Dpto.Informático

Foisa. SA

Charla con tus amigos en línea mediante MSN Messenger: Haz clic aquí __________________________________________________ Forum.HELP400 es un servicio más de NEWS/400. © Publicaciones Help400, S.L. - Todos los derechos reservados http://www.help400.es _____________________________________________________ Para darte de baja visita la siguente URL: http://coyote.combios.es/mailman/listinfo/forum.help400

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

Responder a